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The greatest impact of the Motorola MC6809 
undoubtedly will be software related. Ten pow¬ 
erful addressing modes with 24 indexing sub¬ 
modes, 16-bit instructions and the consistent 
instruction set stimulate the use of modern pro¬ 
gramming techniques. Such as structured pro¬ 
gramming, position independent code, re- 
entrancy, recursion and multitasking. 

A memory management system with extended 
addressing designed into the bus system controls 
up to 256K bytes of RAM memory. The dyna¬ 
mic memory allocation system, which is part of 
the multitasking DOS, allocates available 
memory in as small as 4K blocks. 

The MC6809 system is the only 8-bit processor 
designed for the efficient handling of high-level 
languages. New addressing modes, a consistant 
instruction set and easy data manipulation on 
stacks allows the efficient execution of block- 
structured high-level code as generated by a 
compiler like PASCAL. 

MP-09 Processor Card.$ 195,00 

68/09 Computer w/48K.$1,500.00 

CIRCLE INQUIRY NO. 48 

SOUTHWEST TECHNICAL PRODUCTS CORPORATION 
219 W. RHAPSODY 

SAN ANTONIO, TEXAS 78216 (512) 344-0241 



Welcome to a whole new world of microcomputing. 
Here at last is a microcomputer with all the speed and 
power that you have wished for. The MC6809 is an 
exciting new concept in microprocessors that fills the 
gap between 8 and 16-bit machines. It provides the 
power of 16-bit instructions with the economy of 
8-bit architecture. 

The MC6809 has more addressing modes than any 
other 8-bit processor. It has powerful 16-bit instruc¬ 
tions, and a highly efficient internal architecture with 
16-bit data paths. It is easily the most powerful, most 
software efficient, and the fastest 8-bit general pur¬ 
pose microprocessor ever. 


6809 PROGRAMMING MODEL 
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The single card computer 
with the features 
that help you in real life 


COMPLETE COMPUTER 

In this advanced card you get a pro¬ 
fessional quality computer that meets 
today's engineering needs. And it's one 
that's complete. It lets you be up and 
running fast. All you need is a power 
supply and your ROM software. 

The computer itself is super. Fast 
4 MHz operation. Capacity for 8K bytes 
of ROM (uses 2716 PROMs which can 
be programmed by our new 32K BYTE- 
SAVER® PROM card). There's also IK of 
on-board static RAM. Further, you get 
straightforward interfacing through an 
RS-232 serial interface with ultra-fast 
speed of up to 76,800 baud — software 
programmable. 

Other features include 24 bits of bi¬ 
directional parallel I/O and five on¬ 
board programmable timers. 

Add to that vectored interrupts. 


ENORMOUS EXPANDABILITY 

Besides all these features the Cro- 
memco single card computer gives you 
enormous expandability if you ever need 
it. And it's easy to expand. First, you 
can expand with the new Cromemco 
32K BYTESAVER PROM card mentioned 
above. Then there's Cromemco's broad 
line of SlOO-bus-compatible memory 
and I/O interface cards. Cards with fea¬ 
tures such as relay interface, analog 
interface, graphics interface, opto- 
isolator input, and A/D and D/A con¬ 
version. RAM and ROM cards, too. 



Card Cage 32K BYTESAVER PROM card 


EASY TO USE 

Another convenience that makes the 
Model SCC computer easy to use is our 
Z-80 monitor and 3K Control BASIC (in 
two ROMs). With this optional software 
you're ready to go. The monitor gives 
you 12 commands. The BASIC, with 36 
commands/functions, will directly ac¬ 
cess I/O ports and memory locations — 
and call machine language subroutines. 

Finally, to simplify things to the ulti¬ 
mate, we even have convenient card 
cages. Rugged card cages. They hold 
cards firmly. No jiggling out of sockets. 

AVAILABLE NOW/LOW PRICE 

The Cromemco Model SCC is avail¬ 
able now at a low price of only $450 
factory assembled ($395 kit). 

So act today. Get this high-capability 
computer working for you right away. 



Cromemco 

incorporated 
Specialists in computers and peripherals 
280 BERNARDO AVE., MOUNTAIN VIEW, CA 94040 • (415) 964-7400 
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AT YOUR COMPUTER RETAILER NOW 


TRS-80, Apple II, Sorcerer, SOL and Southwest 
Tech 6800 owners: get more out of your personal 
computer.^ 

Get into action with G2 Bullseye!, Sea Battle, 
Confrontation and Attack! 

Sharpen your analytical abilities with G2's Outwit 
I, Outwit II and Mind Bender. 

Take a chance with G2's Beat the House. Check 
out your health with Clinic. 

And enjoy the challenging experience of two new 
G2 computer simulations: The Market and Wildcatting. 

Or get serious with three powerful new 
languages. Level III Basic for the TRS-80. Extended 
Basic for the SOL. And Standard Basic for the 
Southwest Tech 6800. All written by Microsoft—the 
Basic wizards: Exclusively from C2. 

T* A Product of GRT Corporation 
Consumer Computer Group 

__ ) 1286 North Lawrence Station Road. Sunnyvale, California 94086.408/734 -2910 

CORPORATION 


Our software has more so your computer does 
more. Great programming. Highest quality cassette. 
The most comprehensive instruction manual available. 
Plus source listing print-out of every application 
program in Basic. You can learn how the programs 
were written. We even encourage you to do your own 
re-programming to improve your skills! 

G2 software is available from computer retailers 
nationwide. If your local retailer doesn't have it, ask 
him to become a G2 dealer by calling us toll free: 

(800) 538-8540 (U.S.A.) or (800) 672-8691 (California). 


THE REASON 
YOU BOUGHT 
YOUR COMPUTER. 



TM 
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PERSONAL 


The affordable personal computer that’s easy to use 
even for people who’ve never used a computer before. 


Atari, the company that brings 
thousands of hours of fun into your 
customers’ homes with the Atari 
Video Computer System ,M , now 
adds a new product concept to the 
fast-growing personal computer 
market with the Atari-400™. 

The Atari-400™ is the “general 
purpose” personal computer de¬ 
signed by people for people. 

Because of its advanced engineer¬ 
ing, it’s easy to use. Because of its 
affordable price, it’s easy to sell. 

With the Atari-400™, educating 

This device has not been approved by the Federal Communications Commission 


at home is made simple. That’s 
because it has the advanced 
capabilities of talking and teaching 
on home TVs with Atari’s exclusive 
audio/digital cassettes. Currently, 
the Atari educational program 
library has a selection of 20 sub¬ 
jects to choose from ranging from 
Algebra to Zoology. 

As for helping your customers run 
their households, the Atari-400 
can be used for personal finances 
record keeping, and most other 
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Plus, Atari-400™ offers the 
most sophisticated thinking and 
action games ever. 

That’s a lot of ways to offer your 
customers an easier and better life 
with one easy-to-use personal 
computer. You’d have to agree, it’s 
a good enough reason why they’ll 
make the Atari-400™ their first 
personal computer. 

For more information on the 
ATARI-400™, write ATARI, 1265 


Borregas Ave., Sunnyvale, 
personal business matters. ATA Ul Calif ' or cali 408 ‘ 745 ' 2083 - 

I I® A Warner Communications Company o 

This device is not. and may not be. offered for sale or lease, or sold or leased until the approval of the FCC has been obtained ^ ^ lar - j979 

























The personal computer with expandable memory, advanced peripherals, 
and comprehensive software so it will never become obsolete. 


How sophisticated can a person¬ 
al computer be if it’s outdated in a 
year? Or in even a month? 

Well, Atari solves that problem 
by introducing the Timeless Com¬ 
puter—the Atari-800™. 

It’s the top-of-the-line personal 
computer system with more 
adaptability. That’s because of its 
expandable memory, a variety of 
peripheral components, and a com¬ 
prehensive software library. The 
Atari-800™ is designed to change as 
your customers’ needs change. 

The Atari-800™ can be easily 


used by people with no previous 
computer experience without com¬ 
promising capability for the sophis¬ 
ticated user who wants to write 
specialized software. Storage and 
manipulation of large data bases 
ranging from stock market anal¬ 
ysis to inventory control will 
allow the Atari-800™ to find its 
way into uses never before 
imagined. 

In addition, the Atari-800™ Is 
an instructional tool that speaks 
to you, asks questions, and 
uses the TV screen as its 
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blackboard. Available subjects 
range from Algebra to Zoology. 

And the games! 

The most sophisticated action 
and thinking games ever, like 
Basketball, Chess, and Stock 
Market, just to name a few. 

The Atari-800™. The only com¬ 
puter your customers will ever 
need to buy. 

For more information on the 
ATARI-800™, write ATARI, 
1265 Borregas Avenue, 
Sunnyvale, California or 
call 408-745-2083 

® A Warner Communications Company 


This device has not been approved by the Federal Communications Commission. This device is not, and may not be, offered for sale or lease, or sold or leased until the approval of the FCC has been obtained. © Atari 1979 
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EDITOR’S NOTEBOOK 


IN THE INDUSTRY 

In the January issue of BUSS, The Inde¬ 
pendent Newsletter of Heath Company Com¬ 
puters, Editor Charles Floto made a mention 
that INTERFACE AGE was the only maga¬ 
zine in the microcomputer industry. We like 
to think so, and in some very important ways. 

The first and possibly most important way 
that INTERFACE AGE is in the industry is: 
we try to support our readers by publishing 
well-written and edited articles providing the 
most up to date and useful information. 

Next, we support our advertisers by devot¬ 
ing more editorial pages to the industry as a 
whole than any other magazine. Surprisingly 
enough, both reader support and industry sup¬ 
port go hand in hand. By supporting the in¬ 
dustry we have a resource at hand that pro¬ 
vides us with up to date information on what 
is happening and is going to happen. Which 
means, of course, that we can relay this to 
our readers, and keep them up to date. So 
you see, being in the industry is something 
we are proud of and we will remain actively 
involved in bringing to focus what is hap¬ 
pening in the microcomputer industry. 

With that explained, I would like to say 
something about BUSS. This newsletter, in 
my opinion, has a great deal to offer owners 
of Heath equipment. It is a good forum for 
establishing communications between users 
and provides short hints on the use of the 
Heath systems. Those of you who would 
like to subscribe can send $7.50 for 12 
issues or $11 for 18 issues to: 

BUSS 

Attn: Charles Floto 
325 Pennsylvania Ave. S.E. 
Washington, D.C. 20003 

SOME OTHER NEWSLETTERS 
AND MAGAZINES 

Amateur Radio Operators—HAMS as they 
are known—will enjoy the AM RAD newslet¬ 
ter. This newsletter is the communications 
vehicle used for the Amateur Radio Research 
and Development Corporation. AM RAD 
operates the Washington area electronic mail 
box both on telephone and radio—WR4APC 
—2 meter FM 147.81 input, 147.21 out¬ 
put. You can join by writing to: 

AMRAD 

Attn: Gerald Adkins, Treasurer 
1206 Livingston St. N 
Arlington, VA 22205 
or call the mail box at (703) 281-2125. In¬ 
cidentally, annual dues are $10 per year. 

From down under in Australia comes 
COM 3, a non-profit magazine affiliated 
with the Computer Education Group of Vic¬ 
toria. The magazine is published five times a 
year and each time gets that much better. 
For users who are really interested in having 
a well-rounded library of information 
resource, COM 3 is a must item. A sub¬ 
scription and a membership in the Com¬ 
puter Education Group of Victoria costs 
$35. To find out more about it write to: 
COM 3 Ms. E. Bruhn 
C/Collingwood Technical College 
35 Johnson Street 
Collingwood, Australia 3066 

Back on top and up north in the Seattle 
area comes Northwest Computer News, 


from the Northwest Computer Society, P.O. 
Box 4193, Seattle, WA 98104, recorded 
info (206) 284-6109. 

This magazine/newsletter is tabloid style 
and has information that is of interest to the 
club members specifically and to general 
readers around the country. This is a paper 
worth taking a look at and offers a fair 
amount of value for the true hobbyist. 

AN IMPORTANT BOOK 

Recently, I had the pleasure to pick up a 
copy of James Martin’s Computer Data¬ 
Base Organization, a $30 book published 
by Prentice Hall, Englewood Cliffs, New 
Jersey 07632. This book is the last word on 
understanding databases and their design. 
Written in a clear, concise format, even the 
novice software designer should have no 
problem understanding its content. 

Although the book is written in a manner 
to make it understandable by almost every¬ 
one, it is written with the professional or soon 
to be professional system software designer 
in mind. Martin guides the reader through 
the complexities of database concepts and 
design with the ease of a skilled artist. 

The way the book is designed makes it pos¬ 
sible for a software designer to take the con¬ 
cepts and translate them into a workable data¬ 
base manager. You probably won’t be able to 
find this book in most computer stores, but it is 
available in all the B. Dalton (Pickwick) stores 
and most technical and university bookstores. 

MORE CONSULTANTS 

During the past few months, I have re¬ 
ceived a few more letters from people en¬ 
gaged in the consulting business. One that 
was of particular interest was: Girl Friday 
Business Compiler, 10210 Olentangy, 
Houston, TX 77075, (713) 946-8708. 
This company is engaged in developing 
software and also has developed a number 
of games in the course of developing 
specific software systems. 

Peter Zilahy Ingerman — system consult¬ 
ant, 40 Needlepoint Lane, Willingboro, NJ 
08046, dropped me a note with some of his 
qualifications, which include: conducting 
feasibility studies to see if computerization is 
required, and if so what type of system is re¬ 
quired. Analyzes work flow, evaluates the 
suitability of mini systems for specific work 
functions, and recommends system im¬ 
provements on existing DP installations. 

Peter has about 16 years experience in the 
field and brings the understanding of a trained 
engineer into the data processing arena. 

Ronald C. Wagener, of Computer Gener¬ 
ated Data, 638 Muskogee Avenue, Norfolk, 
VA 23509, (804) 853-2304, wrote to tell 
us about his company, which specializes in 
mailing lists and directories for churches, 
plus providing useful user information for 
the TRS-80. As Ron stated in his letter, 
“Since I know what can go wrong more 
than any other TRS-80 user, I have valuable 
information for sale.” 

Automated Business Enterprises, Inc., 
P.O. Box 584, Hampton, VA 23669, spe¬ 
cializes in business management and 
marketing, writes John Talley, vice presi¬ 
dent of the company. They provide quality 


software and continued support to their 
customers and feel that the support is the 
major key to business consulting. 

A MISCONCEPTION 

Occasionally letters are received and pub¬ 
lished by publications telling of trouble with 
a particular company. Unfortunately, due to 
similarity of names of companies, an inno¬ 
cent bystander is hurt for the misdeeds of 
another. So is the case of Computer Sys¬ 
tems Distributors, Inc., 3470 Erie Boule¬ 
vard East, Syracuse, NY 13214, (315) 
446-1285. This company has an excellent 
reputation and has not to our knowledge 
ever had any difficulty with its many 
customers. Hopefully, readers who have 
associated Computer Systems Distributors 
Inc. with a similar company in Syracuse will 
realize the error and understand that CSD 
has made its reputation on good business 
ethics and customer support. 

THE RETIREMENT GAME 

Everyone wants to retire, right? Well, John 
Heldt, 2205 Riordan Drive, San Jose, CA 
95130, a quality control engineer, has 
found a way to do it from the comfort of his 
easy chair. John has developed a game called 
“Masterplan for Quality Confusion,” a quality 
game for calculator buffs. During the course 
of the game you advance through the levels 
of quality control and you can even be fired. 
The goal of course is to reach retirement. 
The game is an interesting approach to calcu¬ 
lator game playing plus learning a little about 
quality control. This isn’t a commercial ven¬ 
ture for John, but more of a hobby. He would 
like to hear from you. 

ABOUT COPYRIGHTS 

I frequently am asked questions about 
when a copyright is interfered with. The most 
basic answer is when copywritten material is 
used for commercial purposes or personal 
gain. The key is that of making money with 
someone else’s copywritten material. 

All the material in INTERFACE AGE is un¬ 
der the magazine’s copyright, with some ex¬ 
ceptions. These exceptions are the few articles 
that we have published with the author’s copy¬ 
right, but this presents a problem. Before this 
material can be used by the author or the mag¬ 
azine again, a release of copyright from both 
parties must be obtained, because in effect a 
double copyright exists. Because of such diffi¬ 
culties, we no longer accept author copywrit¬ 
ten material for publication, but we are very 
free in providing letters or authorization of use 
of articles, except for commercial ventures. 

Should you find an article in INTERFACE 
AGE that you wish to reprint write to: INTER¬ 
FACE AGE, Permissions, care of Joanna Kon- 
drath, P.O. Box 1234, Cerritos, CA 90701. 
If no copyright conflict can be found, a letter 
of permission will be sent to you. 

A DYNAMIC NEGATIVE 

A friend of mind, who shall remain name¬ 
less, recently sent me a copy of his seventh 
corollary concerning dynamic negatives. I 
personally think it says a lot in just a few 
words: ‘‘The efficiency and profitability of a 
corporation is inversely proportional to its 
number of vice presidents.” Wonderful words 
and oh so true. —carl 
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BUSINESS SOFTWARE! 


Joins the State-of-the-Art SD Products at your 
World-Wide SD Systems Dealers 



Z80 Starter Kit $249.00 


Z80 Starter Kit 

The State-of-the-Art Microcom¬ 
puter Kit that gives you the Z80 
microprocessor to learn step 
by step through SDs compre¬ 
hensive manual. Examine the 
features of the Z80 Starter Kit: 

• Keyboard and Display 

• Audio Cassette Interface 

• PROM Programmer 

• Wire Wrap Circuit Area 

• 4 Channel Counter/Timer 

• IK Bytes RAM 

• Two Parallel I/O Ports 


From Boards to Total Systems 


Total Business Software 

SD Systems brings you TOTAL 
System Software for the SDS-100. 
Most businesses do not keep full 
time programmers on staff. This is 
why SD brings you full business 
software for the SDS-100. Special 
modifications can be made by SD 
Software Engineers to fit your re¬ 
quirements. Program updates are 
sent to users when they are devel¬ 
oped. The SD Business Software 
extends from General Ledger and 
Payroll through Accounts Receiv¬ 
able and Mailing List. Proven per¬ 
formance programs that are fac¬ 
tory supported make the SDS-100 
the TOTAL System for your needs. 


SD State-of-the Art Boards 

VDB-8024 Video Board On-board Z80 
revolutionizes video display technology. As¬ 
sembled and Tested or Kit versions available. 

SBC-100 Single Board Computer 

Z80 Microprocessor, RAM, PROM, 4 Channel 
Counter/Timer, I/Os. AST or Kit Versions. 

Versafloppy Flexible Disk Drive Controller 
that controls up to 4 mini or full sized drives. 
IBM 3740 Compatible, Complete Software. 

ExpandoRAM From 8K to 64K Bytes on 
the same board. Low Power, Switch select¬ 
able banks and Write Protect A&T available. 



SDS-100 Business Computer 


Hertz 


Commercial 

Leasing 


Leasing Available for 
the SDS-100 System 

SD Systems SDS-100 
T.1.810 Printer and SD 
Total System Software 
for less than $1.50 per 
hour (40 hour week), 
through HERTZ Com¬ 
mercial Leasing. See 
the TOTAL System at 
your SD Dealers. 




Full information on SD Products is available from your local 
SD Dealer. Refer to the world-wide list of dealers on the facing 
page or call toll-free: 800-527-3460. (214-271-^667 in Tex.) 

SD Systems, Post Office Box 28810, Dallas, Texas 75228. 


MAY 1979 


CIRCLE INQUIRY NO. 46 


INTERFACE AGE 7 

























































LETTERS TO THE EDITOR 


A DIABETIC AND THE PET 

Dear Editor: 

Being a diabetic I was very interested in 
your article “It’s No Big Miracle,” in your 
December 1978 issue. 

Having a PET computer with no line 
printer, I decided to use the basic chart idea 
from your program and write a similar pro¬ 
gram and have the chart display on my PET. 
Also because of not having a line printer and 
still wanting to be able to keep a record of 
my charts, I write the chart information onto 
Mag Tape. This allows me to search by date 
and get a display on the PET of any day I 
want to review. 

I would be glad to send anyone a listing or 
even the program on Mag Tape if they send 
me a blank tape. 

Frank Henn 
4811 Verona Dr. N.W. 

Calgary, Alberta T3A 0P5 

IN RELATIONSHIP TO BUSINESS 

Dear Editor: 

The recent business section and letters to 
the editor about business software available 
for microcomputer systems have prompted 
some thoughts. 

I have followed the development of micro¬ 
computers and their application to business 
since the introduction of the original hobby 
kits. It is true that for many financial applica¬ 
tions the current crop of microcomputer sys¬ 
tems and available software is very good. 

However, if the businessman’s needs in¬ 
clude word processing, none of the software 
currently available is truly suitable to the 
task. (With apologies to the current vendors.) 

Standalone wordprocessors do not ad¬ 
dress the problem of an inexpensive and in¬ 
tegrated system. Minicomputer based sys¬ 
tems are still too expensive. 

The J500 recently introduced by Jac¬ 
quard Systems effectively solves the prob¬ 
lem. Its price of $9200 includes CRT, key¬ 
board, 16-bit CPU, 64K-128K memory, 
dual floppies and controllers for floppies, 


hard disks, printers and communications 
lines. The software includes the number 1 
rated (by Datapro) wordprocessor in the 
shared logic category (TYPRITE). And the 
software is totally integrated. The word pro¬ 
cessor can access and manipulate files 
created by general ledger, accounts receiv¬ 
able, etc. and vice versa. 

Once the user has experienced the power 
of a professional level wordprocessor (such 
as TYPRITE) he will never again be satisfied 
with the currently available products. 

David Harralson 
Hollywood, CA 

A FLOPPY ROM™ USER 

Dear Editor: 

I have been a subscriber to INTERFACE 
AGE since October, 1976, and I got the 
final kit package for my Altair 680b in about 
April, 1976. 

When Robert Uiterwyk’s' 4K Basic on 
Floppy ROM appeared in the May 77 issue 
of INTERFACE AGE, I thought it was very 
interesting; but I did not, at the time, have 
the hardware or the knowledge to imple¬ 
ment it. 

Within the past few days I finally got 
around to trying the Floppy ROM. It works 
great. Till this time I have been using the 
6800 MPU instruction set to program in 
HEX through my ASCII keyboard. 

For future programs I would like to see 1) 
a relocator program; 2) a real-time appoint¬ 
ment calendar program with a subroutine 
for present Day-Month-Year; 3) a cash- 
register program; 4) a multiple-interrupt¬ 
servicing program; 5) a time-share pro¬ 
gram. All these programs should be offered 
for 6800, 8080, and Z-80. 

Alternatively, I would like to see a pro¬ 
gram to convert programs from one instruc¬ 
tion set to another. Also, any programs on 
Floppy ROM should include an assembly 
listing so that necessary patches can be ac¬ 
complished by the user. Or possibly an 
assembly listing could be requested from IN¬ 


TERFACE AGE for those interested in a par¬ 
ticular Floppy. 

INTERFACE AGE is an excellent 
magazine, and I hope you keep the hard¬ 
ware and software articles flowing. 

Robert Ousterhout 
Ogdensburg, NY . 

Roger, since Floppy ROM Number One, 
we have published a significant number of 
useful programs on the ROM. More impor¬ 
tantly, with the introduction of I APS™ in 
May of 1978, we made the Floppy ROM 
concept even more useful. We do have 
some other significant changes in the mak¬ 
ing and will make the Floppy ROM even 
better. 

FROM ACROSS THE ATLANTIC 

Dear Editor: 

I recently finished reading the December 
1978 issue of your magazine, which I have 
subscribed to for one year. It is the first 
magazine specially for the home computer- 
ist (I like this word, which I saw for the first 
time printed on. your envelope) which I am 
reading and I have to say it is very nice and 
teachable for me. 

A friend of mine has been doing a chess 
program for a Wang 2200VP minicom¬ 
puter with 64K and now I have found in 
your 1978 Index to Microcomputer Books 
three books dealing with chess and even in 
one is an already written chess program! So 
together with this letter three other letters will 
go to your country directly to publishers of 
chess computer books. 

Tomorrow I shall start to try Pico-Fumi 
game on above mentioned minicomputer 
and later I should like to convert that game 
on my programmable TI-59 with the printer. 

I am very looking forward to next issues of 
your magazine, because all three 1979 
coming attractions will be very interesting, 
teachable and useful for me. 

Libor Stoic 
Na zastrelu 40 
162 00 Praha 6 
Czechoslovakia 



Word Processor + Business System 

MicroDaSys Makes It Easy. 


Ask for our free catalogue and complete price list. 


FEATURES 

• Full-Sized Disk Drive (Standard) 

• Up To Four Disk Drives 

• Z-80®* Micro-Processor 

• CP/M®** Disk Operating System 

• Printer Interface 

• Full Word Processing Capability 

• Designed for Business Use 

AVAILABLE SOFTWARE 

• Accounts Receivable/Payable 

• Payroll 

• General Ledger 

• Inventory 

• Mailing List 

• Text Processor 

• Plus 500 More! 


AVAILABLE LANGUAGES 

• BASIC Compiler (Included) 

• FORTRAN 

• Pascal 

• COBOL 

• And Many More! 

CALL OR WRITE NOW! 

MicroDaSys 

POST OFFICE BOX 36051 
LOS ANGELES, CA 90036 
(213)935-4555 
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SOME IMPORTANT FIXES 

Dear Editor: 

This letter is in reference to the article “An 
Interrupt Driven Floppy Disk Controller for 
the S*100 Bus” by R. Wright and C. Quinn 
(May 1978). 

Since the article was published, I’ve ac¬ 
quired two FD400 F/D drives, built power 
supplies and cables, wire-wrapped the con¬ 
troller board, and have nearly finished 
check-out in an Altair 8800 system. 

Although I recognized the relatively high 
technical level of the article, I’ll have to admit 
that it turned out to be a much greater chal¬ 
lenge than expected, and also much more re¬ 
warding. It was quite a thrill to finally write and 
read back the first full track of data without 
error, and to know exactly what was going on. 

Check-out, of course, was not without dif¬ 
ficulty. In addition to a couple of my wiring 
errors, the following schematic errors were 
identified: 

1. U27D input and output pins (9 and 10) 
are shown reversed. 

2. U8A and B are shown connected so that 
the MOTOR ON 0 signal enables the 
DOOR OPEN 1 input, and vice versa. 
Reversing the connections to U8-1 and 
4 cured this problem. 

3. U13A, B, U16A, B and U12B one- 
shots will not work when wired as 
shown. The 9602 requires that an un¬ 
used positive trigger input be tied to 
ground and an unused negative trigger 
input be tied to + 5V for proper opera¬ 
tion. The opposite is shown on the 
schematic. 

4. The HEAD LOAD DELAY one-shot 
(U128) is shown with 47 mfd and 22K 
for external timing values. These values 
calculate out to 310 ms delay. Although 
the schematic indicates an intended 
delay of 35 ms, the FD400 manual spe¬ 
cifies 40 ms as the correct value. I found 
that replacing Cl3 with a 6.8 mfd 10% 
150D type tantalum capacitor produced 
almost exactly 40 ms. 

5. The connections to the phase compara¬ 
tor inputs (U20-1 and 3) are shown re¬ 
versed, with the result that the frequency 
correction voltage applied to the VCO 
(U23) is in the wrong direction. 

6. The CLOCK WINDOW/DATA WIN¬ 
DOW flip flop (U15B) clock input is 
shown coming from the QC output of 
counter U20 via inverter U10. This re¬ 
sults in clock/data separator windows 
being generated every 1 /isecond, which 
is double the correct rate. Moving the 
connection from the QC output (U20-12) 
to the QD output (U20-11) solved this 
problem. The text is in error in the descrip¬ 
tion of the operation of this flip-flop. Since 
the PLL is operating at 8 MH, which is 32 
times each bit cell, and a bit cell is defined 


as one clock pulse and one data pulse (if 
data is a 1) occurring in a 4 ^second per¬ 
iod, it then follows that flip flop U15B 
should be clocked every 16 counts of the 
PLL to provide a clock window/data 
window every 4 ysecond, not every 8 
counts and 2 second, as stated. 

Two other problems, both having to do 
with the noisy Altair S-100 bus were iden¬ 
tified. 

1. Noise on the PSYNC line caused the 
ACCESS WAIT LOGIC shift register to 
be cleared, and in turn, the PRDY line to 
go true prematurely. A 330pf capacitor 
to ground at U30-8 cured the problem. 

2. The other glitch was on the enable in¬ 
puts to U26, 27 and 28 tristate buffers 
which gate data back to the CPU. This 
glitch occurred during the time the CPU 
requires data to be stable. It was traced to 
noise on address lines and cured with a 
330 pF capacitor to ground at U32-4. 

There is a disagreement between the soft¬ 
ware and the hardware in the program 
listing. In the subroutines for READ, WRITE 
and etc. The code 03H is output to the con¬ 
trol mask port. This code, according to the 
schematic, will turn on the activity lights for 
drive 0 and 1. It will not turn on either 
motor, or enable interrupt instruction logic. 
If the CPU attempted to execute these sub¬ 
routines, it would halt and wait for an inter¬ 
rupt which could never occur. 

Again in the READ and WRITE subrou¬ 
tines; the READ (or WRITE) command is 
output to the 1771 command register, and 
this is immediately followed by an input 
from the status register. The Western Digital 
data sheet on the 1771 states that “When 
writing into the command register, status is 
not valid for some 12 usee later.” Obviously 
not enough time has been provided for 
status to become valid. 

In spite of the rather long time it has taken 
me to get the disk system and controller up 
and running, I still think it was a very worth¬ 
while experience. My thanks to the authors 
for their efforts. 

There is still one question for which I have 
not found an answer; What is the purpose of 
S (bit 0) in the READ TRACK command? 

I find that if I make this bit a 0, I can read a 
track without error, but if I make it a 1,1 read 
back garbage. Can anyone explain, please? 

P.S. How about publishing a similar article 
on a REAL TIME CLOCK or a hardware 
floating point arithmetic card for the S-100 
bus? 

Bob O’Brien 
15209 Prairie Ave., #29 
Lawndale, CA 90260 

Bob , we appreciate your comments on 
the difficulties you encountered. Regarding 
a real time clock, it's possible we may have 
one coming up. 



Altos Computer Systems 

2378-B Walsh Avenue 
Santa Clara, CA 95050 

Apple Computer 

10260 Bandley Dr. 
Cupertino, CA 95014 

Digital Microsystems Inc. 

(Formerly Digital Systems) 
4448 Piedmont Ave. 
Oakland, CA 94611 


Imsai Mfg. Corporation 

14860 Wicks Blvd. 

San Leandro, CA 94577 

Industrial Micro Systems 

633 West Katella, Suite L 
Orange, CA 92667 

North Star Computer 

2547 9th Street 
Berkeley, CA 94710 

Percom Data 

318 Barnes 
Garland, TX 75042 

Polymorphic Systems 

460 Ward Dr. 

Santa Barbara, CA 93111 

Problem Solver Systems 

20834 Lassen Street 
Chatsworth, CA 91311 

Processor Applications Limited 

2801 E. Valley View Avenue 
West Covina, CA 91792 

SD Sales 

3401 W. Kingsley 
Garland, TX 75040 

Smoke Signal Broadcasting 

6304 Yucca 
Hollywood, CA 90028 

Technico Inc. 

9130 Red Branch Road 
Columbia, MD 21045 

Texas Electronic Instruments 

5636 Etheridge 
Houston, TX 77087 

Thinker Toys 

1201 10th Street 
Berkeley, CA 94710 

Vista Computer Company 

2807 Oregon Court 
Torrance, CA 90503 


*AShugart 
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8080 STILL IS GOOD 

Dear Editor: 

In your February issue there is an article 
by Rod Hallen on the Z-80 comparing it to 
the 8080. Listed on page 96 there are two 
programs to move data, the Z-80 being less 
than half the size of the 8080. True, the 
Z-80 is faster and does more, but please 
give the 8080 a fair comparison. 

While four bytes isn’t all that much, in the 
sample shown that comes out to be over 
twenty percent larger, which on a larger pro¬ 
gram could amount to quite a bit. 


Listed Version 

Corrected Version 

LXI 

H,ADDRESS 

LXI 

H,ADDRESS 

LXI 

D,DESTINATION 

LXI 

D,DESTINATION 

LXI 

B.LENGTH 

LXI 

B,LENGTH 

MOV 

A,M 

MOV 

A,M 

STAX 

D 

STAX 

D 

INX 

H 

INX 

H 

INX 

D 

INX 

D 

DCX 

B 

DCX 

B 

XRA 


MOV 

A,B 

CMP 

B 

ORA 

C 

JNZ 

XXXX 

JNZ 

XXXX 

CMP 

JNZ 

C 

XXXX 

Total 19 bytes 

Total 23 bytes 

I’m 

looking forward 



The new Pascal Computer System is driven by a unique 16-bit Pascal 
MICROENGINE™ — the first microprocessor hardware designed 
exclusively for direct high-level language execution. ■ The 
processor is incorporated into a single board computer system, the 
WD/90, which directly executes Pascal intermediate code generated 
by the University of California at San Diego (UCSD) Pascal compiler, 
Release 111.0. ■ Since P-code output by the Pascal compiler 
represents an ideal architecture for a computer executing Pascal 
programs and since the WD/90 directly executes P-code (no 
interpreter), these programs execute up to five or more times faster 
than equivalent systems. 

The WD/90 Pascal MICROENGINE™ Computer includes: ■ Pascal 
MICROENGINE™ processor ■ 64K bytes of RAM Memory ■ Two 
RS-232 asynchronous/synchronous ports (110-19.2K baud-full 
duplex) ■ Two 8-bit parallel ports (500 kHz maximum data rate) ■ 
Floppy disk controller with direct memory access (DMA), switch 
selectable for: single or double density (IBM format); mini or standard 
floppy; 1 to 4 drives (same type) ■ Floating point hardware 
(proposed IEEE standard) ■ Memory Mapped I/O ■ Enclosed 
power supply ■ Complete UCSD Pascal Operating System 
(Release 111.0) 


WESTERN DIGITAL 

3128 Redhill Avenue, Box 2180 • Newport Beach, CA 92663 
(714) 557-3550, TWX 910-595-1139 

FOR FURTHER INFORMATION CONTACT 
DISTRIBUTOR: CIT (714) 979-9920 
RETAIL: Your LOCAL COMPUTER Store 
OEM: Your WESTERN DIGITAL Sales Representative 


to your graphics 
issue. I hope it contains more of hard copy 
graphing, etc. and methods rather than just 
plotting on the CRT (i.e. interfacing to a 
plotter, Diablo, Qume, etc.). 

L. Barker 
Chicago, IL 

We are planning to get into how graphics 
are generated, both from a hardware and 
software point of view. Plus provide infor¬ 
mation on the hard copy graphic peripher¬ 
als. In fact, we would like to hear from any¬ 
one working in these areas. 


A GENUINE NEED 

Dear Editor: 

Due to throat and stomach cancer opera¬ 
tions, I am not able to use the telephone 
company’s vibrator unit to talk with. I have 
heard of a unit currently being developed 
that has buttons and a speaker so you can 
carry on a conversation over the phone. 

Don’t confuse this with the children’s 
spelling units or with the language units that 
write things out with LEDs. The one I read 
about spoke only language to talk and con¬ 
verse with. 

Have you heard about these experimental 
units? If you or any of your readers know 
about them, I would like to get the address. I 
sure would like to get it now as I can only 
write to communicate. Could you or your 
readers help me in some way? 

Herbert H. Freeman 
4522 Hamilton St. 
San Diego, CA 92116 

SOME POINTS OF VIEW 

Dear Editor: 

Numerous letters have appeared in INTER¬ 
FACE AGE and other magazines concern¬ 
ing the uses of microcomputers in business. 
Most of these letters are hardware or soft¬ 
ware oriented and concern only a small seg¬ 
ment of one of these fields. The microcom¬ 
puter is different from the larger computers 
and so is the applicable software. Its greatest 
potential lies in a different direction. 

Microcomputers can be used where it 
would be impractical to use the larger and 
more expensive machines. Up to the pre¬ 
sent, few people have been concerned with 
interfacing microcomputer systems with the 
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Some Pleasant Surprises 

Your computer retailer can give you a demonstration 
and literature. You might find a solution just right for 
your business with“off the shelf” prices and delivery 
times. Or we will be happy to send you literature direct, 
including a list of our dealers and compatible hardware. 
Write us, or 


The SSG product line includes these outstanding packages: 

General Ledger LETTERIGHT Letter Writer 

Accounts Receivable NAD Mailing System 

Accounts Payable QSORT Sorting System 

CBASIC-2 WHATSIT? Data/Query System 


SSG’s general accounting, data inquiry, mailing, and 
communications software packages are bringing real 
computer power to hundreds of businesses right 
now. They are ready to go to work for your business. 


The Honest-To-Business $12,000 Computer 

Our software will power DYNABYTE, CROMEMCO, 

IMSAI, NORTHSTAR, ALTOS, MICROMATION, DIGITAL 
SYSTEMS, or other Z-80 or 8080 based computers 
through your General Ledger, Accounts Receivable, and 
Accounts Payable. And maintain a conversational 
data-base query system, store and print your mailing list 
and labels, produce and edit correspondence, address 
it from your mailing list, and more. The price for a total 
system—hardware and SSG software—ranges from 
$8,000 to $14,000. 


Real Business Computing 

Our Business Software packages are designed to be up 
and running and working for you in a matter of hours. 
Without expensive reprogramming, technical staff addi¬ 
tions, or costly trial-and-error. Our quality is high, our 
documentation practically self-instructive. The applica¬ 
tions are flexible and extensive, designed to meet and 
exceed the requirements of most small to medium busi¬ 
nesses. Real computer solutions at microcomputer prices. 


Structured Systems Group 

INCORPORATED 

5204 Claremont Oakland, California 94618 (415)547-1567 


❖ Complete prices will vary with equipment and software selected. Required: 
8080 or 7-80 based computer running a CP/M or CP/M-compatible 
disk-based operating system. Your retailer or SSG can advise on specifics. 
(CP/M is a product of Digital Research.) 
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GIMIX Inc. 

SS 50 • SYSTEM 68 

The Heavyweight champ of 
professional quality for the 
user who demands the best. 



16K Systems 

Includes: Mainframe cabinet, 
mother board, power supply, 
fan, CPU, 16K static RAM, 
and choice of I/O card. 

$1294.29 

Other packages available. 

16K Static Rams 

Gold Bus connectors — DIP 
switch controllable addressing, 
write protect and enabeling of 
each 4K block. Tested at 2 MHz. 

$298.13 

Above but socketted and with 
software control registers. 

$368.16 

Add $32.00 for 250 ns. parts 



Tl TMS4044-45 factory prime 
from same shipments we use in 
our professional quality boards. 

$5.00 each 

Add $1.00 per I.C. for250 ns. parts. 

Ask about GHOST Power 
boards and systems. 

cimixQ, 

1337 W. 37th Place □ Chicago, Illinois 60609 
Telephone: 312-927-5510 

The Company that delivers . 

Quality Electronic products since 19 75. 

★★★★★★★★★★★★★★★★★★★★★★★★★★★ 
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real (business) world. Microcomputer sys¬ 
tems consist of a lot more than a micro¬ 
processor chip. 

The businessman is subjected to many 
constraints involving time and money, either 
directly or indirectly. Government regulation 
of business takes many forms, all of which 
influence the time and money that a busi¬ 
nessman has to devote to his business. 
Government supports itself with taxes and 
uses these same taxes to regulate business. 
The time required to prepare and maintain 
the records required by government, upon 
which it bases its taxes, represents a very 
real expense to the businessman. 

Once this expense is incurred, it is up to 
the businessman to make the fullest possible 
use of the information that he has accumu¬ 
lated. Microcomputers can help to reduce 
the expense of accumulating this informa¬ 
tion and can help the businessman to use 
the information better. 

A microprocessor chip is a small part of a 
microcomputer, and a microcomputer is a 
small part of a fully utilized computer sys¬ 
tem. Such a system would be used for word 
processing, accounting, inventory control, 
communications, and a lot more. There are 
many schools that teach FORTRAN and 
COBOL but few teach BASIC. Most micro¬ 
computers require a knowledge of BASIC. 
Those of us who wish to move into the gap 
between the microcomputer manufacturer 
and the microcomputer end user must do so 
from the side of the businessman. 

Video terminals, printers and memory de¬ 
vices are properly considered to be acces¬ 
sories in a microcomputer system. They 
also can and should be used as part of our 
system of communications. Communica¬ 
tion between two or more terminals is com¬ 
mon, possible and desirable. It would be 
much easier to discuss a tax return with your 
accountant, or a government auditor, if the 
return appeared on terminals in each office. 
This also applies to price lists, real estate 
listings, contracts and other papers. 

With the advent of intelligent terminals, in¬ 
cluding small, inexpensive, dedicated com¬ 
puter systems, it is no longer necessary to tie 
up a main computer while information is 
slowly printed out. The task can and should 
be assigned to the terminal, freeing the main 
computer for other work. With information 
readily available from memory or a memory 
device, much printed matter can be elimi¬ 
nated. Much of the information that is now 
printed is not used, as with the book that is 
kept for the use of a few pages, or used only 
once. It must be remembered that elimination 
of necessary printed matter can be disastrous. 

Interfacing the real, business world to the 
manufacturers of microcomputer hardware 
and software requires communication and 
flexibility. The data must be received in a 
form that the recipient can use. Outside con¬ 
straints on both parties must be taken into 
account. Flexibility is required because 
business conditions and the constraints on 
business are constantly changing. 

Robert D. Jones, MBA 
412 Prospect Place 
Neptune, NJ 07753 


COMING 

IN 

JUNE 

Beginning in June, INTER¬ 
FACE AGE will start a tutorial 
to explain one of the most 
powerful new computer lan¬ 
guages, PASCAL. Associate 
Editor Henry Davis will be ex¬ 
plaining the basics of PASCAL, 
detailing the commands, code 
words and many other aspects 
of the language. 

The PASCAL Notebook will 
include a complete compiler 
based on P-4 implementation, 
the last implementation written 
by Niklaus Wirth, the designer 
of the language. The P-4 is in 
the same line as the widely- 
known UCSD compiler. 

Not only will the series detail 
some of the finer points of the 
language and the steps neces¬ 
sary for implementation, but it 
will also explain the reasoning 
behind their implementation. 
By explaining the theory that 
formed the basis of the lan¬ 
guage, Davis will give the 
reader an understanding of all 
languages. By the end of the 
tutorial, serious readers will be 
able to write their own lan¬ 
guage. 

The PASCAL Notebook will 
be of interest to all those who 
are interested in language de¬ 
sign or who simply want to 
learn how to use PASCAL. 

Let INTERFACE AGE be your 
guidebook for this exciting lan¬ 
guage. Watch for the PASCAL 
Notebook, beginning in June. 


14 INTERFACE ACE 


MAY 1979 



























X. NTF2TEC DMA SYSFBrfS 


THE $798 


It’s already a big success! 


The party’s over for all dumb ter¬ 
minals and a lot of smart ones 
too. But, at $798 (quantity 25), the 
party’s just beginning for Intertec’s 
InterTube II. 

Standard features to celebrate in¬ 
clude a full 24 line by 80 character 
display, 128 upper and lower case 
ASCII characters, reverse video, 
complete cursor addressing and 
control, an 18 key numeric keypad, 
special function keys, blinking, pro¬ 
tected fields, character and line in- 
sert/deiete, editing, eleven special 
graphics symbols, a 25th status line 
which displays the terminal operat¬ 
ing mode and an RS-232 printer port. 
* $995 Quantity One 


You’ll discover even more reasons 
to celebrate when you sit down in 
front of an InterTube II. Our wide 
bandwidth monitor produces crisp, 
sharp chararters everywhere on the 
screen. InterTube’s Z-80 processor 
enables a host of operator oriented 
features to boost the efficiency of 
both software and programmers. 
And, InterTube’s rugged modular 
design combined with its built-in 
self-test mode insures quick and 
reliable servicing. 

InterTube’s price/performance ra¬ 
tio can satisfy your requirements 
whether they be a sophisticated 
data entry application or a simple 


inquiry/response environment. So, 
there’s really no reason to think 
“dumb" when you can afford to be 
so smart! 

Join the thousands of InterTube 
celebrations going on around the 
country at this very moment. Call 
us at the number below and start 
your own celebration (BYOB—we’ll 
bring the InterTube). 



f= INTE3TEC 
DATA 

= SYSTEMS 


2300 Broad River Road, Columbia, S. C. 29210 
(803) 798-9100 TWX: 810-666-2115 
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The Computer Cookbook. 


The Only 


ce Book You Need. 


The one computer reference 
book that won’t go out of date. 
Because we vow to supply 
updates—free—to registered 
Cookbook owners as long as we 
keep our loose-leaf binder edition 
in print. We’ll send you new 
pages. You just pull out the old 
and plug in the new. 

Bad business? We don’t think 
so. It’s our way of supporting the 
people who supported us. After 
all, the Cookbook is your book. 
We’ve distilled the advice of 
hundreds of computer owners 
who’ve put together systems— 


and had to make them work. 

Working on a word processing 
system? We offer a quick and 
dirty hyphenation algorithm (used 
in the early phototypesetter 
machines) that you can do 
yourself in BASIC—and we tell 
you how the big machines do it. 

Accounts receivable? We have 
step-by-step recipes in our special 
machine independent “Cook¬ 
book” format—plus advice 
on what hardware you need, and 
how to hook it up. 

And for fun, we tell you how to 
do your astrological chart. Or tie 


your computer to the New York 
Stock Exchange. We even offer 
Merrill Lynch, Pierce, Fenner, 
and Smith’s commondity market 
model—but offer no money-back 
guarantee on that one. Plus 
hardware profiles with the kind of 
nitty-gritty details you won’t get 
anywhere else. 

And if the Cookbook doesn’t 
cover your particular problem, let 
us know—we just may solve it in 
our next update. ’Cause if it isn’t 
in the Cookbook, just wait—it 
probably will be. 


Yes, I’m hooked. Ship me the Cookbook. I enclose $15 plus $1.50 shipping. (We always ship by UPS. However, allow 
four weeks for “worse case’’ Cookbook supply problems. California residents add $.98 sales tax. Checks should be 
payable to “The Computer Cookbook.” Or charge to Mastercharge or Visa). 


Name_:_ 

Street_ 

City_State_Zip_ 

for Mastercharge/Visa: Card Numbers_Expiration Date_ 

Signature_ 

The Computer Cookbook / P.O. Box 4084 / Berkeley, CA 94704 

See the Computer Cookbook at the 4th West Coast Computer Faire May 11-12-13. 
Our booth is Number 47—Downstairs in Brooks Hall, far left corner. 
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Ask Eliot Janeway 

Interview by Terry Costlow, Assistant Editor 

Computer stocks were 
very popular for some time 
in the 1960s. With the 
boom in chip technology, 
do you think that computer 
stocks can become hot 
again? 

JANEWAY: No. If you read my 
investment manual, “You and 
Your Money,” I’ve gone to 
great pains in the chapters on 
stocks to explain that the most 
fundamental of all distinctions 
in investment matters is that 
between a company and its 
stock. There’s no assurance whatever that strength in a business will 
spill over to strength in the stock of that business. 

As often as not, when a company does very well, its stock will be 
under very severe pressure. From a pure and simple business stand¬ 
point, I can see any number of reasons why the stock of IBM could 
have been expected to regain its lost vigor. Of course, the company 
itself is doing very well. 

Nothing is more natural than to jump to the conclusion that 
because you know a given company is doing very well, it makes 
sense to go out and buy the stock. That line of thought drives you 
back into this fallback question: Do the prices of stocks multiply the 
earnings reported for the companies behind the stock? 

My view, based I think on experience and on the practical reason¬ 
ing behind that experience, is that they almost never do. The 
multipliers change. In other words, if a stock sells at 10 on the basis 
of earning $2 a share, so that its PE multiplier is 5, and then drops 
to 8 while its earnings double to $4 a share, its multiplier will drop to 
2. Multipliers are changing all the time. This proves earnings don’t 
predict prices. 

Do you think that this would be a good time to invest in over- 
the-counter computer stocks? 

JANEWAY: Absolutely not, because the governing consideration is 
the level of interest rates. There’s an old rule about business: when a 
company doesn’t do well, it needs money. But when a company 
does really well, it needs still more money. 

Now we’re living in a period of 15 percent money. Entrepre¬ 
neurial businesses are needing to spend up to 18 to 20 percent for 
money if they can get it. If businesses are doing well, the money 
market isn’t going to say “OK, buster, you’re doing so well and you’re 
in the computer business and you’re a graduate of Stanford. Just for 
you, we’ll make an exception and you can get 5 percent money.” 

For them to sell stock is brutal. If they can’t get credit to bootstrap, 
they’re going to have to try to sell skin. That’s bearish for a stock. 

But wouldn’t that be the cheapest way for them to get 
capital? 

JANEWAY: They’re damned if they do and damned if they don’t. It 
depends on how sophisticated they are. 

Physicists are rarely sophisticated financially. Can they get “mother- 
ship” financing from a big supplier? That’s the cheapest way. If they 
have proprietary product or technique, can they get an outfit that 
knows its business and that knows that they can do something 
economical to advance them money? The normal rule is that com¬ 
panies that have it, who get their start developing it during bad 
money conditions, either wreck the future markets for their stock by 
giving private placements of warrants in letter stock, and just pro¬ 
liferate a lot of new supply over the market landscape. Or they get in 
over their heads in debt. 

Are there any stocks that you’d say are good to Invest in at 
this time? 

JANEWAY: If we go on the rule that money is going to be worth 
pretty much 15 percent and if we invoke my other investment rule 
that you need three percent of what money’s worth to make an in¬ 
vestment in an income paying security worthwhile, there’s only one 
class of income paying security that meets that definition. And that’s 




©VECTOR 

PACKAGING SYSTEMS 
SAVE TIME & MONEY! 


New ANYDIP 
8804, $21.95 


8802-1, $21.95 


M S-100 CARDS * 

Five models available. Universal tinned buses, pads or 
plain. 0.042 inch diameter holes on 0.1 inch grid for 
mounting anything anywhere. For interface, memory, 
breadboarding. ^ 

R681-2 RECEPTACLE FITS 8803 MOTHERBOARD 

Model R681-1 has 0.062 inch long 0.025 inch square tails. 


em-WmX? 

TEFZEL* Insulation Wire Wrapping Tools: 

u. s. & 

foreign patents \ 


\ ® UP to faster. 

• Heavy insulation. 
...... P184-4T with NiCad 

batteries, recharger, 100' 
daisy-chain wraps of wire: $105.00. 

PI 84 with 100 feet of wire, $30.00. 

BEAUTIFUL VP2 ENCLOSURE-supplied completely 
assembled for packaging. 

S-100 based systems. Clear _~' w l 

aluminum with blue vinyl — -/ 

finished slide-off sides, top, JyHH S l&HBl \ ZT ZZi 

and perforated bottom cover; H 

heavy chassis plate, \ 

removable front and rear JfS i UiJiiti! ji ‘Sfi 1 

panels, adjustable ■ 

connector/Motherboard 

mounting struts, card l3 1 

guides (plastic guides Wl 

vp2, $159.00. vpi , tSBSSss^HSSf 

cards mount perpendicular 

to front, $163.00. BP 17-9 accessory back panel, $10.95. 

Low-noise model 8803 S-100 Motherboard not shown. 
Eleven positions ready for connectors. Glass epoxy, 
solder masked etched circuitry for passive and active 
termination, twelve tantalum capacitors and 
instructions. $29.50. 

tr^d^mark Pr,ces subject to change without notice. 

Send for complete data. Packaging systems for other 
card sizes and systems, rack mounting are available 

VECTOR ELECTRONIC COMPANY, INC. 

12460 Gladstone Avenue, Sylmar, CA 91342 
telephone (213) 365-9661; TWX (910) 496-1539 

ad number 627901 
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PROGRAM LIBRARY 

from 


CASCADE ENTERPRISES 
ON CASSETTE TAPE 

If you use Solos™ or have an 8080 Sob** System, 
G 2 ™ Extended Basic is faster and better than others 
requires (15.5K) $49.95 

For our 6800 users G2™ Standard Basic specifically 
for the S.W.T.P.C.tm 6800 requires (7K) $34.95 

Both G2 basics are by Microsoft™ 

We have the following games and entertainment which 
will run in these machines: 


w 

$ 

H 

■o 

o 

H 

Z 


THE GAME TAPES r g 

ARE ONLY £ m 

$14.95 each m 

3J 

G2 BEAT THE HOUSE * * 

G2 CLINIC * * 

G2 OUTWIT • * 

G2 THE MARKET * 

G2 ADVENTURE 
G2 BLOCKADE 
G2 OIL TYCOON 
G2 PILOT 

G2 Beat the House includes Blackjack, Craps, Roulette 
and Slot Machine. Craps is a very big program* Ours 
left 3K usable in Level II 16K TRS-80tm. Allows a family 
to play as a group against the computer. 

Call us anytime except Sunday (916) 926-5154 or write 
As an introductory 

offer—the first 500 CASCADE ENTERPRISES 

orders get a free Box 213 

10 minute blank cassette. Mount Shasta, CA 96067 
Cal. Res. add 6% tax 

Bank Cards add shipping & handling $2.00 

□ M/C DB/A-Visa _ Expires _ 

Signature_ 
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NOT A KIT 

8v<&15A, ±16v@3A power 
Rack mountable ^ 

15 slot motherboard 0 

Card cage \ ^ 

Fan. line cord, tuse, . \ 

switch. EMI filter 
Desk top version option 
8v@30A, ±16v@10A option 
voltage monitor option 
• 100 pin connectors optional 


Rack 
mounted 
model From 
$200 


Desk 
top model 
From $235 


Write or call for a copy of our 
detailed brochure which includes 
our application note 
BUILDING CHEAP COMPUTERS. 

INrEGR4ND 


8474 Ave 296 • Visalia. CA 93277 • (209) 733 9288 
We accept BankAmericard/Visa and Master Charge 


the uranium-bearing South African gold stocks which are yielding 
20 to 35 percent. 

Speaking for ourselves, we have about 45 percent of our profit- 
sharing trust portfolio, which pays no taxes on its income, invested 
in them. The only other kinds of securities that are safe from capital 
loss during this kind of fever rash in the money market are securities 
which are paying no return whatever. And those tend to be divided 
into two groups: workouts from bankruptcy, and special situations, 
like any computer stocks that have proletary technology. 

If you made money last year in a computer stock that will not pay 
a dividend and that’s well financed, and the company’s small 
enough not to collide with competition from the Hewlett-Packard 
category, it would seem to me that you’d have to limit your in¬ 
vestments to specialties. The major second-rung stocks of the 
category of Hewlett-Packard, and I don’t mean to single it out, are 
going to come under obvious pressure because they represent 
pioneering achievements by innovators of the last generation who 
are now in their seventies. They’re thinking about grants to colleges 
and grandchildren. They can get 5 percent to SYi percent tax-free 
for taking no risk, 28 percent capital gains rate. So the incentives are 
rising for them to sell their stocks and switch into tax-exempts. 

People do get sick. People in those brackets who get sick run up 
bills of two to five thousand dollars a week as fast as you can say 
IBM. So you’re going to have a rigorous year in continuous selling 
pressure on those high-performing stocks with high profit margins. 

And, of course, if you know of smaller companies with pro¬ 
prietary technology and small capitalization, where competitors or 
suppliers or customers not in the anti-trust spotlight found it expe¬ 
dient to take those companies over, you could find a computer stock 
on the takeover list, and you’d have a winner. 

Mind you, when you have computer companies that are involved 
in any sort of regulatory sensitivity, increasingly the entrepreneurs, 
let’s say of medical technology, they wouldn’t want to be taken over. 

The individual entrepreneur of the kind who built Hewlett-Packard 
or Digital hasn’t got the patience or the temperament to cope with 
this endless harassment. 

I’m 66 years old. All through my career I have regarded land as a 
passive, “grandchildren’s” investment. It has ceased to be that. It’s 
been turned into the kind of asset that only companies can afford to 
hold. It’s an operating asset because of the zoning and environmen¬ 
tal authorities. 

Do you see a leveling out of land prices in the near future? 

JANEWAY: No. They’ll continue to escalate because the land 
stock of this country has been effectively cut by at least a third, 
maybe more, by unresisted environmental encroachment. You can’t 
use up to a third of the land that you bought. 

One might say that it’s a tradeoff. If you have a thousand acres 
worth a dollar an acre, and they told you that you couldn’t use 333 
of those acres, you’ve paid for 1,000 and wound up with 666. And if 
there’s an economic demand for 1,000 acres, each of the 666 that 
you could use would be worth more that $1 a acre. So it is an offset. 
And some landowners are saying, “Well, that’s great.” And, “I’m 
rich, that suits me. Some weaker owners will be chopped off and I’ll 
buy them up at discounts.” And eventually the regulatory pendulum 
will swing and people will have had enough of over-regulation and 
they’ll say, “Let’s make a buck.” 

See, we’re on a moral cycle in this country. We go from the syn¬ 
drome of Saturday night in a mining camp to Sunday morning on a 
mourner’s bench. We’ve been on the mourner’s bench now, doing 
penance for affluence while still enjoying affluence. We’ve gone a little 
schizoid. The strange part now is, as the pocketbook nerve pinches, 

I think we’ll swing back a little to the “Let’s make a buck” syndrome. 

I don’t think it’s the end of the world, but being frank in answer to 
your question about land values, they are not going to come down. 
However, I immediately temper that judgment with the consideration 
that it’s going to Cost you money to own land while you carry it.D 

Questions for this column should be sent to Ask Mr. Janeway, 
P.O. Box 1234, Cerritos, CA 90701. One question per letter, 
please. Personal replies are not possible. 

The comments expressed in this column do not necessarily 
reflect the views of this magazine or the microcomputer 
industry. —The editor. 
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A COMING OUT AFFAIR . . . 
STRICTLY BLACK TIE 



Teletek has just developed a pack for its printed circuit board family. We’ve combined the 
force absorbing characteristics of polystyrene foam with the isolation properties of anti¬ 
static polyfilm to provide customers with our best assurance that your Teletek PCB will 
arrive in the same condition that it left our plant. 

Look for these S-100 boards in the new Teletek pack. 

• Floppy Controller I — Able to function as a smart controller or as the heart of a 
standalone system. This single/double density, single/double sided floppy disk 
controller is the most capable available anywhere from anyone. 

• Floppy Controller II — A clean single/double density, single/double sided floppy 
disk controller compatible with many drives; CP/M©, Famos© and Oasis© 
compatible; bootstrap loader and buffer on board. 

• System Central Interface — The most powerful interface board available combin¬ 
ing the functions of three or more individual S-100 interface boards into one 
package. 

• Universal Cassette Recorder Interface — A quality cassette interface board ideal 
for system applications where high speed biphase cassette interface is needed. 

Teletek - Our boards are dressed for the occasion. 
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TELETEK 


9767F Business Park Drive 
Sacramento, California 95827 
(916) 361-1777 





Now learn the 
electronics 

of microprocessing. 

Enjoy the challenge and 
excitement of learning about 
microprocessing hardware - how 
it functions and how to repair it - 
by actually building your own 
equipment as you learn. 

National Technical School's Microcomputer Division offers three such 
learn-by-doing courses that you can enjoy at home, in your spare hours. Each 
combines clear, concise lessons with Heath and NTS-designed digital 
equipment-a combination our students tell us makes for “lively" home study. 

Find out more about these valuable NTS Microcomputer Courses. Send today 
for our colorful 65-page catalog-it’s FREE! 

No obligation. No salesman will call. Approved for veteran training. 

NATIONALISE^ SCHOOLS 

TECHNICAL-TRADE TRAINING SINCE 1905 
Resident and Home-Study Schools 
4000 South Figueroa St.. Los Angeles. Calif 90037 

jr -4 

I NATIONAL TECHNICAL SCHOOLS I 

| 4000 South Figueroa Street • Los Angeles, California 90037 | 

| Please rush your FREE 65-page color catalog I 

! For fast service, please call toll free:! 

■ 1-800-325-8383 Extension 108 ; 

i In Missouri, toll free: 

! 1-800-392-0900 Extension 108 

L_J 
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When you “talk”... 

uia “lic+on ” 


With our new IEEE-488 Interface 

Our popular series 40 printers are now available with an 
IEEE-488 compatible interface or an industry standard Buffered 
Parallel interface. Both interfaces include a line buffer and 
software addressability. Featuring our famous commercial 
quality construction, the new models start at $585 in singles. 
Other models available are the low cost Parallel ASCII 
starting at $425 and an RS232/Current Loop interface begin¬ 
ning at $575. Generous OEM discounts are available. All 
models are complete stand-alone units with a 40 column 
impact dot matrix printer and a 64 character ASCII set. 
Includes power supply, casework and interface electronics. 


For more information write to: 

MPI 2099 West 2200 South. 
Salt Lake City, Utah 84119 
or call (801) 973-6053 




By Mike Wolf, Senior Engineer 

Jet Propulsion Laboratory 
Pasadena, California 

TRS-80 ASSEMBLER FIX (Level-1). . .Dump If! 

Having bought my TRS-80 mainly because I fell in love with the 
Z-80 CPU instruction set, I quite naturally bought the Radio Shack 
Editor/Assembler soon after the purchase of my Level-1 machine. 
As soon as my 16K chips were installed, I eagerly brought my 
assembler “up” and began playing around with that fantastic reper¬ 
toire of Z-80 instructions. 

My enthusiasm was soon dampened, however, by persistent load 
problems. Neither the assembler manual nor any of the documenta¬ 
tion that comes with a Level-1 machine mentions what the little “C” 
in the upper right-hand corner of the screen means. It did not take 
me long to correctly guess that it stands for “checksum error.” 
Since the assembler tape only comes in “Level-2 format” (named 
file convention, 500 baud). Level-2 users are forced to first load the 
“system tape” using the “CLOAD” command. This program will 
then allow the loading of any tape written in Level-2 format, and fur¬ 
thermore will allow the user to specify the starting address. 

I found that the “system” tape (written at 250 baud) never gave 
any load problems, but that the assembler tape (written at 500 baud) 
frequently did, and would sometimes load incorrectly 2 out of 3 
times! I played around with level settings (3 Vi worked best), cleaned 
the heads, and tried both sides of the tape (to see if one side was a 
“bad” copy), all to no avail. What was worse, sometimes even a 
“good” load (no “C” on the screen) would result in screwy assem¬ 
bler operation (it would reject legal opcodes as illegal, or the assem¬ 
bler option “NL” would be permanent, etc.). 

This points up the fact that even a checksum type of error check¬ 
ing does not catch all load errors, only those that alter the checksum 
(it is possible for two errors to cancel out). 

This problem got so bad that my software development was at a 
standstill, and I was seriously considering returning my TRS-80 to 
Radio Shack with a live grenade taped to the side. The solution is so 
simple, and works so well, that I had to share it. 

The trick is simple. You merely load the assembler, then dump it 
out again at 250 baud in Level-1 format. This tape can then be load¬ 
ed with the “CLOAD” command, thus eliminating the need for the 
“system” tape. But more importantly, this virtually eliminates the 
load error problem (due to the fact that you will be loading at the 
lower baud rate). Here are the steps: 

1. Load your assembler in the conventional manner. 

2. Type in the simple assembler program “COPYA” reproduced 
below. 

3. Assemble “COPYA” and dump it to tape with the file name 
“COPYA”. 

4. Return to BASIC (issue the “B” command). 

5. Load the “system” tape. 

6. Load the assembler by typing “EDTASM”. (Repeat this step, 
if necessary, until a good load — no “C” — is obtained.) 

7. Load the program “COPYA” you just assembled by typing 
“COPYA”. 

8. Put a new, good quality tape in your recorder and put it in 
record mode. 

9. Type “728672” (this is the starting address for “COPYA”). 
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NOW SHOWING 


MICROSTAR 



CRITICS 

ACCLAIM 

microstar. 


THE SMALL BUSINESS SYSTEM 
THEY’RE WAITING IN LINE FOR 


IjHi 

m:u\ 



|BH 

t *. " 7 


Although MICROSTAR™is the newest business 
computer on the scene, it's already a hit. No wonder. 
We designed the system to be exactly right for its 
market-the small business that is big enough to need 
a computer but has been too small to afford one. 

This new MICROSTAR single-board, diskette- 
based, multi-user computer is so cost-effective and 
simple to operate no business can afford to ignore it. 
MICROSTAR is built for a wide range of applica¬ 
tions, including small business data systems, account¬ 
ing, word processing, order entry, inventory, and 
communications and control 
systems. 

MICROSTAR is outper¬ 
forming everything in its class 
because of these outstanding fea¬ 
tures: • STARDOS, a multi-user, 
multi-tasking operating system 


with BASIC language support • UPDATE, a Data 
Base Management System with English language 
dialogue that permits office personnel without com¬ 
puter experience to create custom reports rapidly in 
the terminology of your choice • Direct, Sequential, 
and Index Sequential (ISAM) Access Method file 
types • Comprehensive Word Processor and Business 
Applications available • Single-board computer with 
64K-bytes RAM memory as standard for maximum 
performance and reliability • Dual-drive, double¬ 
sided floppy-disk system with 1.2MB and three-port 
RS-232 support as standard 
• CP/M T support is optional. 

System users: write or call 
for the name of your nearest 
MICROSTAR dealer. Ask him 
about the available MICROSTAR 
application program. 



System dealers: Join the "Micro Five Dealer Drive" now! 


MICROS 
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MICRO V CORPORATION, 

17777 S.E. Main Street, Irvine, California, 92714, Phone: (714) 957-1517, Telex: 678401 TABIRIN 

TM — MICROSTAR is a trademark of MICRO V CORPORATION. CP/M is a trademark of Digital Research. Inc. 
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HOME 

POISON 

CONTROL Roger O. Littge, MD 

WARNING: your home contains 
products which MAY BE HARM¬ 
FUL OR FATAL IF SWALLOWED. 

This North Star BASIC program de¬ 
termines the necessary EMERGEN¬ 
CY MEASURES for ingestion of 
household products. Disk utility al¬ 
lows expansion of substance vocab¬ 
ulary to over 2400 names. Access 
time less than 6 seconds. Free an¬ 
nual updates. Complete Source 
listings. 

Diskette and Manual.$28.00 

Manual only, with listings . . . .8.00 

WATCH FOR cassette versions. 

Available at your computer store 
or from: 

Berkeley Medical Data Associates, Inc. 

Microcomputer Consultants 
P.O. Box 5279, Berkeley, CA 94705 
(415) 653-6707 
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22 START-AT-HOME 
COMPUTER BUSINESSES 

in "The Datasearch Guide to Low Capital, 
Startup Computer Businesses" 

CONSULTING • PROGRAMMING • SOFTWARE PACKAGES 

• COM • FREELANCE WRITING • SEMINARS • TAPE/DISC 
CLEANING • FIELD SERVICE • SYSTEMS HOUSES • 
LEASING • SUPPLIES • PUBLISHING • TIME BROKERS • 
HARDWARE DISTRIBUTORS • SALES AGENCIES • 
HEADHUNTING • TEMPORARY SERVICES • USED 
COMPUTERS • FINDER'S FEES • SCRAP COMPONENTS • 
COMPUTER PRODUCTS AND SERVICES FOR THE HOME. 
Plus -- Loads of ideas on moonlighting, 
going full-time, image building, revenue 
building, bidding, contracts, marketing, 
professionalism, and more. No career 
planning tool like it. Order now. If not 
completely satisfied, return within 30 
days for full immediate refund. 

• 8 V 2 x 11 ringbound • 156 pp. • $ 20.00 
Phone Orders 901-382-0172 


DATASEARCH 

incorporated 

5694 Shelby Oaks Dr., Suite 105, Dept. C. Memphis, TN 38134 

Rush_copies of "Low Capital Startup Computer Businesses" at $20 

per copy to me right away. 

NAME/COMPANY _ 

ADDRESS _ 

CITY/STATE/ZIP _ 

□ Check Enclosed □ Bankamericard □ Master Charge 

# _ 


“COPYA” will now dump out the assembler onto your tape, and 

when through, will return to BASIC. This gives you a 250 baud 

assembler tape, loadable with the “CLOAD” command. 

GOOD NEWS, BAD NEWS 

First, the good news: 

1. You will not need the “system” tape to load your assembler 
anymore. 

2. You can use “COPYA” by simply modifying the lower and 
upper bound addresses, to copy your own assembler programs 
to 250 baud, Level-1 format, so that they, too, can be loaded 
without the “system” tape (those of you who wish to share your 
assembler programs with non-assembler users will definitely 
need this). 

3. Your load error worries are over: my 250 baud tape has yet to 
give me a bad load (used at least 100 times). 

Now, the bad news: 

1. Since you are loading at 250 baud, the loading process will take 
longer. I timed it at 5 , 26 s . However, this is not too bad, as I also 
timed the conventional method, and including the time to change 
cassettes, reset volume levels, etc., the time was 4 m , 00 s .□ 


“COPYA” 



ORG 

41FEH 

location of transfer address 

ASSMA 

DEFW 

468AH 

starting address of assembler 


ORG 

7000H 


CTON 

EQU 

0FE9H 

;cassette turn-on routine 

CSAVE 

EQU 

0F4BH 

;cassette dump routine 

BASIC 

EQU 

0000H 

;basic starting address 

COPYA 

CALL 

CTON 

;turn on cassette 


LD 

HL,4000H 

;set lower bound 


LD 

DE,6800H 

;set upper bound 


CALL 

CSAVE 

;dump to tape 


JP 

BASIC 

;return to system 


END 




CORRECTIONS 


A command was misprinted in a July, 1978 article entitled 
“CP/M: An 8080 Disk Operating System” by Alan Miller. 
The corrected section of the article is listed below. 


LIBRARY FILES 

You probably have sections of assembly language code 
that you frequently use, such as I/O routines and HEX- 
binary/binary-HEX conversions. These routines can be placed 
into a disk file of type .LIB and subsequently inserted into 
another file that is being edited. The command: 

*R HEXBIN 

copies the file HEXBIN.LIB form disk into the edit buffer, 
starting at the CP. 


These corrections from the January issue of the NTS Mini 


, page 84, should also 

be noted: 

Reads: X c = 

1 

2fc 

Should read: X c = 

1 

2irfc 

Reads: Fr — 

1 

2jt LC 

Should read: Fr = 

1 

2n V r LC 
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Over the past two years 
customer acceptance of Vector 
Graphic microcomputers has just 
grown and grown and grown. It 
isn’t terribly surprising, really. 
After all, it does make life a lot 
easier when you have reliable 
cost effective equipment. 

So it is with our new Vector 
MZ business system with both 
data processing and word 
processing available all in one 
trouble-free system. 

That’s good because: 

By having one interactive 
stand-alone system with optional 
software for all your business 
functions including Accounts 
Payable, Accounts Receivable, 


General Ledger, Financial 
Statement, Inventory and more, 
plus... word processing for 
mailing labels, text editing of 
manuals, catalogs, etc., collection 
letters, contracts and proposals 
-you’ll have big business power. 

Known throughout the 
industry for highly reliable 
equipment, Vector Graphic’s new 
business system incorporates: 
the Z-80 based Vector MZ micro¬ 
computer with built-in dual-disk 
quad-density storage enough to 
handle as many as 4,000 customers 
and 12,000 inventory items; 

Vector Graphic’s "Mindless 
terminal”; and a Centronics 120 
character per second printer. 


BUSINESS 


Optional Diablo letter-quality 
printer is also available. 

That's Vector Graphic - cost 
effective, versatile, reliable 
systems. When you get 
down to it - nobody does, 
it better. 


□ Send me details immediately. 

Name_ 

Company_ 

Address_ 



City/State/Zip _ 



Dealer inquiries invited. 

CO * G3APHC inc. 

Vector Graphic Inc., 31364 Via Colinas 
Westlake Village, CA 91361, (213) 991-2302 


See us at the NCC Show in New York, 
June I*, 5, 6 and 7, Booth No. 31*0, 31*1 and 31*2. 
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Clever circuit 
generates on 
board voltage 


Assembled, 


burned in and 


tested 


B-08 EPROM Programmer 


$ 99.95 


THE 




EPROM PROGRAMMER 
SPEAKS FOR ITSELF! 


^ Handy on/off 
switch controls 
on board voltages 


Zero-Insertion 
force socketl 


regulated + 12 v. $104.95 


U2708 Utility In EPROM .S 29.95 

All software routines necessary to test, burn, verify and copy 2708s using the 
B-08 Programmer 


DEPT. K, P.O. BOX llio, DEL MAR, CA 92014 (714) 756-2687 
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Computer Lab of New Jersey 

Computer Lab sells the best S-100 Bus products at the best 
possible prices. Not only are our prices great, so is our deliv¬ 
ery. We offer a 10% discount on most major lines, plus a 5% 
additional discount for a cash purchase. 



LIST 

PRICE 

OUR 

CASH 

PRICE 

SSM 1/04 Kit 

$149.95 

$128.20 

Integral Data Systems IP-22S Printer 
PI 210 Option - add 

Graphic Option - add 

$949.00 

$811.39 
$ 33.34 
$127.39 

Vector Graphic 8K Ram 

$245.00 

$209.47 

Thinker Toys Speakeasy I/O Kit 

$130.00 

$111.15 


Subject to available quantities. Prices quoted include cash discount. 
Shipping and Insurance extra 


Call for our prices on: 

Cromemco, Godbout, IMSAI, IMC, Meca, Micropolis, Problem 
Solver, SSM, Sorcerer, Vector Graphic 


Computer Lab of New Jersey 

141 Route 46 e Budd Lake, N.J. 07828 

Phone: (201)691-1984 

HOURS: Monday & Friday: 12 to 6, Tuesday-Thursday: 12 to 9 
Saturday: 10 to 5 

Call or write for our free catalog A price list 
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By Robert H. Distler 


DEFINING THE DATABASE 

Last month ! began offering some terms and general descriptions 
of a database. This month I will begin to define what will be in our 
database for the mailing list we wish to develop. For this discussion I 
will talk about the names of specific fields, the length of the fields and 
the interrelations the fields have. This is referred to as the schema or 
conceptual contents of the database and how each part interlinks. 

The schema should not be confused with the physical layout of 
the data on the storage media. This is a function of the operating 
system, not the data base management system. The schema merely 
defines what makes up a given base, and the records that come 
together to form a file. 

A sub-schema, on the other hand, is the definition applied by an 
application programmer to utilize the information held in the base as 
defined by the schema. Next month I will go into this interrelation¬ 
ship of the schema and sub-schema. 

Before any discussion of a sub-schema can be entered upon, the 
base must be defined. That is our goal this month. You now know 
some of the terms that are important to understand and know that a 
maillist is to be developed. Right now our concern is what to put in 
the base, regardless of the type of machine involved or language to 
be used. BASIC will be used in our model, but at this point that is 
not important. 

PICKING THE PARTS 

A mailing list can consists of many different parts, depending 
upon what the user wants to do with the information contained in the 
information base. Ideally, a database should find use in more than 
one application and the schema should be defined in such a manner 
as to allow this flexibility for the application programmer. 

Therefore, the following assumptions will be made concerning 
our theoretical mailing list database: 

1. The primary purpose is to provide mailing labels 

2. Each label will contain the following data: 

a. a six-digit customer number 

b. a fifteen-character customer name field 

c. a fifteen-character company name field 

d. a 20-character address field 

e. a fifteen-character city field 

f. a two-character state field 

g. a five-character zip code field 

h. a 12-character phone field 

3. The list may be used later with accounts receivable. 

From the information that we have listed, we know that we can 
derive a great deal of information about the customer. The customer 
number becomes an index item that can be used to further define the 
schema, that is expand it to contain more data, or to link another 
database that contains history on the company in question. Because 
we have defined a number of fields within a given record, we have 
provided a great deal of flexibility in the database for defining specific 
data for a particular application. For the mailinq lists all fields will be 
used except the phone field. 

Figure 1 is a representation of our schema for this database, show¬ 
ing how each item is interconnected, and the items that become the 
keys or index items for finding a particular record within the maillist file. 
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Notice that three fields: customer number, name and company 
name are index items to the record, and are identified by the multiple 
arrows leaving them pointing to other fields in the record. The double 
arrow indicates that a field is a subset of another field and conse¬ 
quently intersection occurs. 

The customer number field shows an arrow pointing out from 
itself and back again. This indicates a link either to expanded fields 
within the schema or to another defined database, which leaves a 
window open to us for later discussions. 

UNDERSTANDING THE INDEX ITEM 

Probably the most difficult concept in database design is to 
understand how an index item is used to locate a specific record and 
link all the parts together. To make this understandable, we will use 
the customer number index, since this is a unique number to any 
given record in a file. 

From Figure 1, we see that for any given customer number there 
exists an intersection or pointer to other parts of the record. By the 
nature of the structure of the record, only those parts are associated 
with a given customer number. The idea is similar to a dog’s tail, it 
must follow the dog’s head in all cases. The same is true for an index 
item. All items that are associated with it must follow the item. In this 
case they are drawn into the application work area. 

(Continued below) 



PERSONAL COMPUTING SOFTWARE FOR APPLE®, PET®, AND TRS-80® 


commc mnv 

AT ALL PARTICIPATING ComputerLand STORES. 
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Figure 2. Conceptual view of the intersection of 
parts of a record, and the link of index items to the 
sub-fields. 


Figure 2 demonstrates how an index item points to the rest of the 
record, and moves the pointer to the start of the record for clarifica¬ 
tion. Notice that Figure 2 is similar in design to Figure 1. The record 
is viewed as a separate entity with each sub part of field making up 
the whole and liked together by a record attribute. A given record 
follows the associative law of mathematics in that each part or field is 
in union with the rest and so forth. 

Because each record is an entity, the union of parts is created 
when the record is first constructed. Attributes are added to the 
record when items outside the original record are to be associated. 
These are the so-called pointers and will be discussed later as we 
build the next schema associated with the customer number 
Next month I will utilize the schema just developed and discuss 
the link to the operating system and the physical layout of the date 
on the media. Also the sub-schema to be used by the applications 
programmer will be introduced.□ 
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UPDATE 


Atari Mails “Refund” Check 

Atari Inc. has initiated an exciting direct 
mail “refund” promotion, the first of its kind 
in the consumer electronics industry, for its 
programmable video computer system. 

The mailing, containing a $2 check, was 
sent about April 16, and was based on hun¬ 
dreds of thousands of warranty registrations 
for the video computer system. It is a real, 
negotiable bank check and can be applied 
any time before June 10, 1979, against the 
purchase of any of the 28 game program 
cartridges available for the video computer 
system. The retailer simply deposits the 
check with his daily receipts. 

To increase consumer response and ex¬ 
citement, Atari is inviting video computer 
system owners to enter the Atari Personal 
Computer Contest. The official entry form is 
the $2 check, on the back of which the con¬ 
sumer answers three questions about the 
Atari-400 and Atari-800 personal com¬ 
puters. Winners will be determined by a ran¬ 
dom drawing from correctly answered and 
eligible responses. Prizes are Atari-400 and 
Atari-800 personal computer systems, and 
$100 Atari personal computer merchandise 
certificates. 

A Micro-Controlled Typewriter 

An electronic typewriter utilizing a Z-80 
chip is being introduced by Olivetti. Two 
models, ET201 and ET221, are designed 
to bring electronics to the secretary, filling 
the gap between electric typewriters and 
wordprocessors. 

The machines are the size of standard 
electrics, have have storage capacities to 
handle tabs and recall standardized chores 
such as contracts and letters. The typewriter 
will type unchanging sections in the proper 
place, stopping to allow the typist to insert 
names and specifics. It can also print letter 
closings or other constant sections auto¬ 
matically. 

The ET201 and 221 use daisywheel 
printers and have no mechanical parts, re¬ 
placing them with electronic modules. 
There are five available printing modes, in¬ 


cluding boldface and reverse (white on 
black). A 20-character display on the 
ET221 allows the typist to make corrections 
before the line is printed. The ET201 has a 
two-character display. 

Cost for the microprocessor-controlled 
typewriters is under $2,000. 

Address Correction 

The new address of the Microcomputer 
Investors Association was printed errone¬ 
ously in the March Update. The correct ad¬ 
dress is 902 Anderson Drive, Fredericks¬ 
burg, VA 22401. The association is dedi¬ 
cated to aiding investors who want to use 
computers to aid in their financial deals. For 
more information about the non-profit orga¬ 
nization, contact Jack Williams at the above 
address. 

New Leader at Jade 

Jade Computer Products, Inc. has an¬ 
nounced that John Leeper has obtained 
controlling interest of Jade and will assume 
the position of president. 

Leeper comes to Jade from Empire Indus¬ 
tries, Inc. of Dallas, Texas. From October, 
1976 to the present, he acted as founder 
and president of SD Systems, which is 
owned by Empire. 

Begun in 1976, Jade Computer Products 
is a leading mail order distributor of personal 
computer products and has recently opened 
up a retail operation in the Southern Califor¬ 
nia area. 

Call For Medical Papers 

Medinfo 80, the third international con¬ 
ference on computer technology in Medical 
Informatics, has issued a call for papers. 
Program session topics include clinical care, 
administrative and educational planning, re¬ 
search and available systems. 

Persons wanting to submit papers should 
send the proposed topic of their article to 
Morris F. Collen, Kaiser Permanent Medical 
Care Program, 3700 Broadway, Oakland, 
CA 94611 before September 30. 

Completed papers, which cannot exceed 
five pages, must be completed by December 


10. The conference will be held in Tokyo 
September 29 to October 4, 1980. 

Apple Club Forming 

A new computer club, Apple Byters Corps, 
is being formed in the Buffalo, New York, 
area. For information contact Gary Weir, 
225 Walton Dr., Snyder, NY 14226. 

TRS-80 Society Formed 

The Central Alabama TRS-80 Computer 
Society is up and running. Meetings are the 
3rd Tuesday of each month. For details con¬ 
tact Walter Bray, 2073 Rexford Rd., Mont¬ 
gomery, AL 36116, (205) 272-3621. 

Self-Merchandising Fixtures 

Computerland Corporation is introducing 
two self-merchandising fixtures, SoftSpot 
and MainBrain, at several Computerland 
stores. 

SoftSpot is a custom-designed, self-mer¬ 
chandising fixture offering programs for per¬ 
sonal use in finance, time budgeting, educa¬ 
tion and the stock market. The fixture will 
assist customers in picking their software 
from major suppliers including Apple, Com¬ 
modore, GRT and Personal Software. 

MainBrain is a self-merchandising unit for 
educational media, books, and cassette and 
video tape courses from publishers in¬ 
cluding Sybex, Osborne & Associates and 
Hayden. MainBrain will have self-service in¬ 
structions to assist customers in making 
their choices of multi-media products. 

Call For Articles 

Eurocon ’80, the fourth annual confer¬ 
ence on electronics held in Stuttgart, Ger¬ 
many, March 24-28, 1980, has issued a 
call for papers. The theme of the conference 
is “From Electronics to Micro-electronics, 
Trends and Applications.” The conference 
language will be English. 

Propsective authors are invited to submit 3 
copies of an extended abstract (500 words) 
before July 31. Notification will come by 
October. Send abstracts to Prof. W.A. Kaiser, 
University of Stuttgart, Breitscheidstrabe 2, 
D-7000 Stuttgart 1, Germany. 


dilithium 

Press 

has a plan... 

For the Microcomputer book market, 
that is... 


Now. there’s 8 way for microcomputer dealers to bring our fast- 
se&ng dP titles into their stores with no cash investment and 
exceptional margin of profit. 


COME SEE US AT BOOTH #512-514 AT HP 
THE WEST COAST COMPUTER FAIRE ■ 


The dilithium Press "PROFIT PLUS" Book Plan is just that . . profit 
plus numerous other advantages: 



Like to find out more? 

Write us at: dilithium Press, 

P.0. Box 92, Forest Grove, OR 
97116, or better yet come by Booth 
#512-514 at the West Coast Computer 
Faire in San Francisco. We’B give you a free 
copy of one of our hottest titles just for taking the 
time to find out about the "Profit Plus" Plan. 

As an added bonus, if you sign up for the dP Profit Plus plan 
before the Computer Faire has concluded, we’ll tack an addition¬ 
al 15% discount onto your initial book order. So be sure to stop by or 
write today, dilithium Press has a plan that works . . . Why not let it 
work for you? 
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New Sorcerer User's Group 

Computer Mart of Massachusetts an¬ 
nounces the formation of the Sorcerer 
User’s Group. The purpose of the group is 
to set up a channel of communication be¬ 
tween Sorcerer owners and to provide infor¬ 
mation on hardware and software develop¬ 
ments to the Sorcerer user. Members will 
receive the User’s Group’s monthly news¬ 
letter, “The Exidy Monitor.” 

Membership fees are $5 a year, although 
new members will have the option of contri¬ 
buting a program in lieu of the fee. For de¬ 
tails contact Bruce McGlothlin at Computer 
Mart of Massachusetts, Inc., 1395 Main St., 
Waltham, MA 02154, (617) 899-4540. 

Thinker Toys Moves 

Thinker Toys/Morrow’s Micro-Stuff, manu¬ 
facturer of S-100 products including the 
DISCUS I and 2D single and dual-density 
full-size floppy disk systems, announces its 
move from Berkeley to Richmond, Califor¬ 
nia. The new facilities are significantly larger 
and will increase the production capacity of 
Thinker Toys. The address is 5221 Central 
Ave., Richmond, CA 94804. The phone 
number remains (415) 527-7548. 

Microcomputers in S & L Industry 

Financial institutions in Dallas, Houston 
and Denver are putting microcomputers to 
work performing specialized data process¬ 
ing tasks that large dp service bureaus are 
ignoring, according to Frank Hoffer, owner 
of Dallas-based S & L Systems. 

Hoffer said the reason microcomputers 
have so readily penetrated an area that here¬ 
tofore was the exclusive domain of the large 
dp systems is their low cost and appropriate¬ 
ness for special jobs. 

The specialized tasks that are currently be¬ 
ing performed on the 8080/Z-80 based S 
& L Systems installations include: escrow 
analysis; Federal Home Loan Mortgage 
Corporation reporting; amortization of de¬ 
ferred fees; loan warehousing and packag¬ 


ing; gain/loss on sale of participations; 
amortization schedules; cash flow models. 

Hoffer said a system he recently installed 
for a mortgage banking client is used to pre¬ 
pare legal documents required in closing a 
mortgage loan. The system is used to gener¬ 
ate the Settlement Statement, Regulation Z, 
Note, Deed of Trust and FNMA forms. Hof¬ 
fer said “built-in” tracking of pending loans 
is featured. 

Hayward Club Forming 

A San Francisco area computer club, 
ABACUS (Apple Bay Area Computer User’s 
Society) is currently seeking new members. 
The 40 charter members have established a 
library of over 200 programs. The club 
meets the 2nd Monday of each month at the 
Hayward Byte Shop, 1122 B St., Hayward, 
(415) 538-2431. For details contact David 
Wilkerson at (415) 482-4175. Membership 
is $ 12 a year, including a monthly newsletter. 

Computer Mapping Library 

A special six-volume Harvard Library of 
Computer Mapping, featuring selected case 
studies on computer mapping applications 
in business and politics, city, state and re¬ 
gional planning, natural resource manage¬ 
ment, and university instruction and re¬ 
search, will be published this spring by the 
Harvard Laboratory for Computer Graphics 
and Spatial Analysis. 

The six volumes — Management’s Use of 
Maps; Commercial and Political Applica¬ 
tions; Urban, Regional and State Applica¬ 
tions (plus a special section on Cadastral 
Systems); Mapping Software and Car¬ 
tographic Data Bases; Computer Mapping 
in Natural Resources and the Environment, 
Including Applications of Satellite-Derived 
Data; Computer Mapping in Education, 
Research and Medicine; and Thematic Map 
Design — may be ordered directly by 
writing to The Harvard Library of Computer 
Mapping, Center for Management Re¬ 
search, 850 Boylston St., Chestnut Hill, 
MA 02167, or call Kathleen Quigley at 
(617) 738-5035. 


Call For Articles 

The International Society for Mini and 
Microcomputers (ISMM) will hold an inter¬ 
national symposium on microcomputers 
and their applications in Monterey, Califor¬ 
nia, January 30 to February 1, 1980. 

Some topics which the symposium will high¬ 
light include technology, hardware, software 
engineering and applications in all fields. 

Send three copies of camera-ready 200- 
word abstracts to 
Secretary 

MIMI-80 (Monterey) 

P.O. Box 2481, Anaheim, CA 92804 
by September 1. Notification of acceptance 
will be sent by October 1. Camera-ready 
copy of accepted papers due December 15. 

Proposals for half-day and one-day tutor¬ 
ials are solicited in the above areas and 
should be received by September 1. 

Business Computer User’s Survey 

Management Information Corporation 
has published the results of their Fourth An¬ 
nual Survey on small business computers, 
peripherals and software in the February 
1979 issue of Small Business Computer 
News. The responses of 568 companies us¬ 
ing 689 small business computer systems 
and 1,145 peripheral devices are included 
in this compilation. Also rated are the pro¬ 
ducts of 124 software suppliers. 

The results of the users’ ratings reveal the 
following findings: service and manufacturer 
support have, once again, received the low¬ 
est ratings; although the equipment ratings 
for this year are substantially good, the soft¬ 
ware ratings are, in general, low; the com¬ 
puter marketplace now includes many un¬ 
sophisticated small businesses with minimal 
data processing background; a significant 
increase of peripheral manufacturers made 
our winner’s list this year over last year’s 
survey winners. 

This report is available for $7.50. To ob¬ 
tain a copy, send check or money order to 
Management Information Corp., 140 Bar¬ 
clay Center, Cherry Hill, NJ 08034. 


FROM THE COUNTER TO THE BOTTOM LINE 
by Carl Warren & Merl Miller 

Shows simple, effective procedures 

for computerizing numerous functions 
in your line of business. 

$ 12.95 

MAKING MONEY WITH YOUR MICROCOMPUTER 
by Carl Townsend & Merl Miller 

For the individual interested in putting that 
micro to work for profit! Ideas on supplying 
computer services in your community ... 
including some places you probably 

haven’t thought of. $7 95 


Write for our free catalogue to: 

dilithium Press 

P.O. Box 92 Forest Grove, Or. 97116 



dilithium 

Press 

means 

Business 

with two new titles that 
can show you how to 
make your microcomputer 
your 

’’silent working partner” 
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CALENDAR 


CHORAFAS SEMINAR 

“Distributed Information Systems” will be 
the topic of two identical seminars sched¬ 
uled for June, 1979 by Dr. Dimitris N. 
Chorafas, internationally-known manage¬ 
ment and data processing consultant. 

The first will be held June 11-15 at the 
Radisson-Chicago Hotel, Chicago; the se¬ 
cond June 18-22 at the Breckenridge 
Pavilion Hotel, St. Louis. 

Topics will include new communications 
technologies; use of protocols and data 
bases; new software developments and ap¬ 
plications. 

Dr. Chorafas has operated a consulting 
business since 1961, advising company 
presidents, conducting seminars, and ex¬ 
ecutive development programs for the 
American Management Association; IBM; 
Olivetti; Honeywell; General Electric; Shell 
Oil; ITT, UNIVAC and others. 

For more information contact Richard A. 
Laubhan, Project Communications Inc., 
333 E. Ontario, Suite 2603B, Chicago, IL 
60611, (312) 266-2113. 

CRYPTOGRAPHY SEMINAR 

Ketron, Inc. is offering a seminar on “Im¬ 
plementing Cryptography in Data Process¬ 
ing and Communications Systems.” These 
state-of-the-art tutorial presentations were 
developed by experts on the Data Encryp¬ 
tion Standard and Public Key Cryptosystems. 
The two seminar leaders are Dr. Carl H. 
Meyer of IBM and Professor Ronald L. 
Rivest of MIT. 

A Ketron spokesman describes this course 
as the most advanced training course now 
available to designers and managers of secure 
systems. This course should particularly ap¬ 
peal to systems designers who are respon¬ 
sible for planning privacy protection and ac¬ 
cess techniques for corporate databases. 

The seminar will be held in New York City, 
May 14-16. The registration fee is $595. 


For information contact Larry Buchsbaum 
or Mary Jane Burns at (215) 687-6300. 

TWO ADVANCED SEMINARS 
FROM POLYTECHNIC 

Polytechnic Institute of New York and the 
Institute for Advanced Professional Studies 
are presenting two seminars. The first, 
directed by Dr. Hans Thamhain, is for pro¬ 
gram and project managers, product mana¬ 
gers, R&D managers, and high-level execu¬ 
tives in a multi-business environment. 

The seminar, entitled “Managing Techni¬ 
cal Programs and Projects: An Advanced 
Seminar,” provides an advanced working 
knowledge of project management to pro¬ 
fessionals who plan, organize, and direct 
engineering projects for industrial, govern¬ 
mental or institutional organizations. 

The session will be held May 15-17 at 
The Colonial Hilton Inn, Wakefield, Massa¬ 
chusetts. Tuition is $400. 

The other seminar, directed by Dr. Glen 
Marston, is titled “Testing Microprocessor- 
Based Systems.” The workshop enables de¬ 
sign and test engineers to coordinate micro¬ 
processor-based product design with pro¬ 
duction testing. 

The seminar will be held June 11-15 at 
The Colonial Hilton Inn, Wakefield, Massa¬ 
chusetts. Tuition is $495. 

For details contact Prof. Donald D. 
French at (617) 964-1412 or the Institute 
for Advanced Professional Studies, One 
Gateway Ctr., Newton, MA 02158. 

TWO BUSINESS SHOWS 

Produx 2000, Inc. is sponsoring two 
shows in the Philadelphia Civic Center May 
23-24. The shows, “Business Products and 
Environment Expo ’79” and “Business and 
Personal Computer Sales Expo ’79” will be 
open from 11 a.m. to 6 p.m. 

For details contact George Pachter at 
(215) 457-2300. 


WISCONSIN COMPUTER FAIR 

The University of Wisconsin-Parkside 
Computer Fair III will be held June 2 from 9 
a.m. to 4 p.m. Highlights of the fair include 
a computer solving contest for high school 
students, a seminar on the use of computers 
in Wisconsin’s educational institutions with 
demonstrations, and a session on applying 
micros to the small business and profes¬ 
sional office. 

Admission is free. For details contact Don 
Piele, University of Wisconsin-Parkside 
Kenosha, Wl 53141, (414) 553-2327. 


COMPUTER STAMP EXHIBIT AT NCC 

A Computer Stamp Exhibit, organized 
with the cooperation of the Computer Study 
Unit of the American Topical Association 
(ATA), will be held at the New York Hilton 
Hotel during the 1979 National Computer 
Conference, June 4-7 in New York City. 

Collectors and organizations are invited to 
submit topical philatelic exhibits on the 
theme of computers and data processing. 
Related or more specialized themes, such as 
history of mathematics or data communica¬ 
tions, also will be accepted. 

Information and entry forms, including 
rules and regulations, are available from Dr. 
Ira W. Cotton, National Bureau of Stan¬ 
dards, Washington, D.C. 20234; (301) 
921-3517. Submit entry forms by May 15. 
There will be no charge for exhibiting. 

Both competitive and non-competitive ex¬ 
hibits are solicited. Competitive exhibits, 
which may be entered only by individuals, 
will be judged in accordance with ATA pro¬ 
cedures and will be eligible for prizes. Ex¬ 
hibits accepted for display must be sent, 
prepaid, to the NCC Exhibition Committee, 
c/o Dr. I. Cotton, Assoc, for Computing 
Machinery, 1133 Ave. of the Americas, 
NY, NY 10036 by May 31. 
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MACHINE LANGUAGE PROGRAMS Software frOITI ACS SERVICE BUSINESS PROGRAMS 

Displays hexadecimal, ASCII, and symbolic instructions. Code 
reassembled using Editor/Assembler. REQUIRES: Level II 

Monitor #3 $39.95 

A machine language monitor program for the TRS-80. Available 
commands in Monitor #3 include: Find, Edit, Unload, Relocate, 

ASCII, Hex, and Symbolic Dump, Binary Math, Load, Punch, 
Identify, and Dump symbolic listing to cassette (will load into 
the EDITOR/ASSEMBLER for reassembly). REQUIRES: Level II, 

16K RAM. Available on disk or cassette. 

Memory Test $14.95 

For Level II computers, 4K to 48K. Test ROM, RAM and video 

RAM. 

Object Code Relocator $15.95 

Designed to relocate machine language programs that were 
written too far down in memory to be used with Radio Shack’s 
disk drive system. This program permanently moves most of 

Radio Shack’s machine language programs into higher area of 

Memory 

16, 32 and 48K RAM Kits. Keyboard 
and Interface. Prices start at $99.95 

779 Centronics Tractor Feed Printer 
$1,100.00 

701 Centronics Tractor Feed Printer 
$1,549.95 

SA-400 Shugart Disk Drives 

Pertec Disk Drives 

Each $399.00 — 2 for $785.00 

Buy two, get cable free 

uaia case management no. i say.yb 

A complete DBM program. Employs five commands: Find, Add. 
Change, Video and Print. REQUIRES: Level II Disk Basic and 
one disk drive, 16K RAM. 

Inventory for Very Small Business $49.95 

Uses sequential files on disk to store inventory. Commands in¬ 
clude: Check for item, Change item information, Add new 
items, and Print Inventory. REQUIRES: Level II Disk Basic and 
one disk drive, 16K RAM. 

Medium Size Business Inventory $250.00 

4,000 or more items. Complete and fully automatic, updates 
all files from one entry. Not junk! REQUIRES: 48K and 4 disk 
drives. 

Cassette Duplication Programs $49.95 

TAPERW TAPEWT 

1 disk drive required. Allows easy and fast duplication of all 
cassette tape formats on 1 Level computer. Will duplicate Level 

1, Level II or machine language tapes. 

NOTE: All programs on cassette unless noted. For disk, please 
specify and add $5.50 to order or send a diskette. All orders 
shipped same day. All programs guaranteed to RUN 

memory, thus enabling the program to reside in memory along 
with DOS and DISK BASIC. The user does not have to reload 
the relocated program each time it is used as it can be per¬ 
manently moved high enough to escape the disk system. 

16K Star Trek $10.95 

A real-time Star Trek game for the TRS-80 written in machine 
language. Long range sensors display the Enterprise's position 
and objects in its adjacent quadrant at all times. Offers several 
features never incorporated in Star Trek games before. 

19-Key Hex, Numerical Keypad 

2 Version — $69.95 

Programmable — $99.95 



ALL HARDWARE WARRANTED 

FOR 90 DAYS 

FINALLY, true CP/M disk operating system and all of Microsoft 
CP/M-oriented programs available immediately for the TRS-80. 
Call or write for information and prices. 

AUTOMATED COMPUTER 
ml SOFTWARE SERVICE 

615/883-8845 • 615/885-1688 

2208 DEARBORN DRIVE ^ 

NASHVILLE, TENNESSEE 37214 /Mi 

MASTER CHARGE & VISA WELCOME 
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Information 
within arm’s reach, 
without costing 
that arm... 
and a leg. 



If you’re looking for a terminal 
that can save both space and money 
Micro-Term has the answer. The ACT-IA 
ACT-1 VA have been specifically designed to overcome 
the problem of bulky computer terminals. Both 
terminals use external monitors with all electronics 
enclosed in an 11” x 14” keyboard. Light-weight, 
compact and portable, the ACT-IA and the ACT-IVA 
are perfect for offices where desk space is limited. 
They are also ideal for classroom instruction because 
each terminal can drive several monitors 
simultaneously. 

The ACT-IA is a “dumb” terminal with a 16 x 64 
display. Designed to replace the teletype, it is a fully 
electronic, silent terminal which can communicate 
with virtually any processor. The ACT-IA employs 
the standard RS232C interface with data rates from 
110 to 19,200 baud. It will display upper and 


descending lower case characters, 
and will drive any closed circuit monitor. 

k 

The ACT-IVA is similar in design to the ACT-IA but 
includes some very important “smart” features, 
including insert and delete character and line, erase 
to end of line and screen, absolute cursor positioning, 
and block mode transmission. Complete with com¬ 
posite video output and a 24 x 80 display, the ACT-IVA 
has a standard, independent printer port for hard copy 
requirements. Cost... only S525*. 

So if you’re looking for a terminal to fit both your 
desk and your budget, call or write Micro-Term today. 
We can put information within your reach. 

All Micro-Term products are fully assembled, 
tested and have parts and labor warranted for 90 days. 
Sanyo monitors are available from $160. 

*50 Quantity Price 
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REGIONAL DP CONFERENCE 

The Sacramento Chapter of the Data Pro¬ 
cessing Management Association is hosting 
the Region 2 conference in Sacramento, 
California, June 10-12. The theme of the 
event is “A Technological Gateway to the 
Eighties.” Tickets purchased before May 31 
are $85 for members, $95 for non-mem¬ 
bers. For details contact Sam Price, Data 
Processing Management Association, P.O. 
Box 1223, Sacramento, CA 95806. 

INFORMATION RESOURCE FORUM 

The Society for Management Information 
Systems is holding a ‘‘Forum on Informa¬ 
tion Resource Management” at the Drake 
Hotel in Chicago on June 25-26. Address¬ 
ing the theme of ‘‘Information Resource 
Management in the Years of Change,” the 
Forum will provide an outlook for the next 
decade in terms of information systems 
technology. 

Sessions and speakers will provide a 
management update in areas such as audit¬ 
ing and security, impact of distributed pro¬ 
cessing and data base management. 

A key feature of the Forum will be an out¬ 
look panel of top MIS directors representing 
various industries who will present a per¬ 
spective on the problems and potential of in¬ 
formation resource management in their 
organizations and industries. 

For details contact Ken Burroughs, DBD 
Systems, 1500 N. Beauregard St., Alex¬ 
andria, VA 22311, (703) 820-3310. 


HAMBURG HAMFEST 

Ham Radio enthusiasts are invited to at¬ 
tend the seventh annual Hamfest at the Erie 
County Fairgrounds. The Ham-O-Rama, as 
it is known, will be two days long this year, 
beginning September 14. For details con¬ 
tact Francis Stengel, Jr., 349 Stony Rd., 
Lancaster, NY 14086. 

MIMI MONTREAL 

The International Society for Mini and 
Microcomputers is sponsoring a forum for 
the presentation and discussion of recent ad¬ 
vances in the application of mini and micro¬ 
computers. The theme of the conference is 
‘‘The Evolving Role of Minis and Micros 
within Distributed Processing.” 

MIMI ’79 will be held September 26-29 at 
the Queen Elizabeth Hotel in Montreal. For 
details contact the Secretary, MIMI ’79 Mon¬ 
treal, P.O. Box 2481, Anaheim, CA 92804. 

TWO DATA ENTRY COURSES 

Management Information Corporation is 
sponsoring two interactive seminars that 
deal with data entry. Discussions with in¬ 
structors and other participants will provide 
solutions to problems that can be easily im¬ 
plemented. 

‘‘Data Entry Management and Supervi¬ 
sion Seminar” includes instruction in data 
entry system concepts, organization of the 
data entry department, data entry control 
techniques and operator training. 


MIC is holding the course at the Cherry 
Hill Inn in Cherry Hill, New Jersey on June 
18-20. 

The other course is entitled ‘‘The Data 
Entry Operator.” The objective of this two- 
day interactive seminar is to make the data 
entry operators aware of their capabilities 
and motivate themselves towards reaching 
their own pre-set goals. 

The seminar will also be held at the 
Cherry Hill Inn on May 22-23, 1979. 

For registration fees and more information 
contact Management Information Corp., 
140 Barclay Center, Cherry Hill, NJ 
08034, (609) 428-1020. 

EDP TREND BRIEFING SESSIONS 

The 1979 Caravan group of Computer 
Expos will bring together leading vendors of 
DBMS and programmer productivity soft¬ 
ware onto special panels during the Com¬ 
puter Expo EDP Trend Briefing Sessions. 

The schedule of Computer Expos is as 
follows: 

Southwest Computer Expo 
Houston, May 8-10 

Southeastern Computer Expo 
Charlotte, May 15-17 

Northeastern Computer Expo 
Pittsburgh, May 22-25 

New England Computer Expo 
Boston, May 29-31 

Information is available from The Caravan 
Group, 60 Austin St., Newtonville, MA 
02160, (800) 225-4260. 



VIDEO 100 


The Video 100 is designed to meet your 
monitor needs for both personal and business 
use. It is compatible with a wide range of 
computer systems, and with a band width of 
12 MHz it is capable of displaying up to 80 
characters per line on the 12" B/W CRT. The 
solid state circuitry assures a stable, & sharp 
display. The front panel controls include 
power, contrast, horizontal and vertical holds. 
Adjustments for height, vertical linearity, and 
width control are located on a rear panel. All 
the above features for only $139. 


THE 

PERFECT 

COMBI¬ 

NATION 



OE 1000 
VIDEO TERMINAL 


The OE 1000 Video Terminal provides you 
with a low cost means to communicate with 
your computer. The OE 1000 will display 16 
lines of 64 characters on a monitor or 
modified TV. The terminal will generate and 
display the full 96 ASCII character set (upper 
and lower case) plus 32 special characters 
(Greek letters and math symbols). The 
terminal will also erase to end of line, erase to 
end of screen, scroll, and it has full X-Y cursor 
movement. Interfacing to your computer 
requires a full duplex, serial, RS 232 or 20 mA 
loop I/O port at the rate of 110 or 300 baud. 
The OE 1000 sells for $350 assembled or 
$275. in kit form. 


h 


Master Charge, Visa, accepted. COD Extra. 

Add $5 per unit, $10 both units, shipping handling insurance. 

The perfect low cost combination of the OE 1000 and Video 100 are available from 

OTTO ELECTRONICS 

_ _PO M BOX_3g66 L PRINC_ETON y NJ. 08540 or call (609) 448-9165 _ 
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ELECTRONICS PRODUCTION 
ENGINEERING SHOW 

An international industrial exposition 
devoted to the needs of the manufacturers of 
electronic products in Korea has been an¬ 
nounced by Clapp & Poliak, Inc., New York. 

The exhibition, to be known as the Elec¬ 
tronics Production Engineering Show, will 
take place this year at the Kosami Exhibition 


Center, in Seoul, November 5-8, and will 
be accompanied by an international confer¬ 
ence with speakers drawn from the United 
States, Japan and Western Europe. 

Further information is available from 
Expoconsul, the Clapp & Poliak interna¬ 
tional sales division, 420 Lexington Ave., 
New York, NY 10017. 
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THE 5-1DQ 

It’s versatile. It’s fast It's efficient. 

It's Honan’s SMC-100. 







TWO-DAY MANAGEMENT SEMINAR 

The cash impact of manufacturing deci¬ 
sions is the focus of “Effective Production 
Planning and Inventory Management,” a 
seminar presented by the Wharton School 
of the University of Pennsylvania on May 

14- 15 in San Francisco and June 25-26 in 
Chicago. 

Designed for manufacturing organization 
executives, the seminar presents techniques 
to increase working capital, reduce inven¬ 
tories without compromising service, fore¬ 
cast market demands, resolve potential 
problems and minimize shortages and pro¬ 
duction delays. 

For more information contact Heidi E. 
Kaplan, Department 20 NR, New York 
Management Center, 360 Lexington 
Avenue, New York, New York 10017, 
(212) 953-7262. 

ICS OFFERS COURSES 

Integrated Computer Systems, Inc. is of¬ 
fering 10 courses in a variety of cities in the 
U.S. and Canada. Classes run from one to 
five days. 

Structured Programming will be held in 
Detroit, May 1-4; Washington, D.C., May 

15- 18; Chicago, June 5-8; Toronto, June 
12-15; Hartford, June 19-22; and in San 
Francisco, Minneapolis and Ottawa in July. 

The Database Management Systems 
course runs from May 8-11 in Washington, 
D.C.; May 15-18 in Los Angeles; July 
10-13 in Toronto; July 31-August 3 in San 
Francisco and August 7-10 in Minneapolis. 

Distributed Processing and Computer 
Networks will be held in St. Louis, May 1 -4; 
San Francisco, May 8-11; Chicago, May 
15-18; Toronto, June 5-8; Hartford, June 
12-15; Washington, D.C., June 19-22; 
San Diego, July 10-13; Ottawa, July 
17-20; and in Minneapolis, July 24-27. 

A course in Computer Graphics will be 
held in Philadelphia, May 1-4; San Fran¬ 
cisco, May 8-11; Seattle, May 15-18; St. 
Louis, June 5-8; Toronto, June 12-15; and 
in San Diego, Washington, D.C., Ottawa 
and Minneapolis in July. 

Small Computing Systems will be held 
May 2-4 in Los Angeles; May 9-11 in 
Washington, D.C.; May 16-18 in Boston; 
June 6-8 in Toronto; July 25-27 in San 
Diego and August 1 -3 in Ottawa. 

Other courses available through the spring 
and summer months include Troubleshoot¬ 
ing Microprocessor-Based Systems, 
Modern Methods of Digital Signal Process¬ 
ing, Spread Spectrum Communication 
Systems, Microprocessor Hands-On Work¬ 
shop and Military and Aerospace Micro¬ 
processor Systems. 

For more information about the courses, 
contact ICS at 3304 Pico Boulevard, P.O. 
Box 5339, Santa Monica, California 
90405, phone (213) 450-2060 or at 300 
N. Washington Street, Suite 103, Alexan¬ 
dria, Virginia 22314, phone (703) 
548-1333. 


The disk controller that brings S-100 
bus micro computers together with 
large capacity hard disk drive. 

Versatile. 

It’ll interlace S-100 bus micro computers with 
all fixed or removable media disk drives with 
storage module (SMD) interfaces. These 
drives range from 10 to 300 megabytes per 
drive, including most ‘Winchester’’ type 
drives. Each Konan SMC-100 will control up 
to 4 drives... that’s up to 1200 megabytes of 
hard disk per controller. And the SMC-100 
lets you take your pick of hard disk drives 
(Control Data. Fujitsu. Microdata. Kennedy. 
Memorex. Ampex. and Calcomp. for example). 
The SMC-100 works with your micro compu¬ 
ter. It’ll wait for your memory — it allows 
intermixing of slow and fast memories. It uses 
standard I/O instructions. And the optional 
driver ROM. addressed through descriptors, 
allows the SMC-100 to handle all disk inter¬ 
facing. including error recovery and bad 
track mapping. 

Fast. 

The SMC-100 transfers data at high speed. 6 


to 10 megahertz rates, with full onboard 
sector buffering and sector interleaving. Its 
DMA is considerably faster than most other S- 
100 DMA controllers. 

Cost efficient. 

The SMC-100 takes advantage of low cost- 
per-megabyte disk drive technology making 
the typical cost per megabyte about $100. 
And the price is right. 

The SMC-100 is a fast, efficient and versatile 
hard disk controller. It allows you to use low 
cost-per-megabyte technology. And. it’s 
priced to keep your micro computer system 
micro-priced. 

The O.E.M. single quantity price is only 
$1650. with driver ROM option. And excel¬ 
lent quantity discounts — and complete sub¬ 
systems — are available. 


Dave Baughman has the answers. Talk to 
him today. You can call him on Konan’s order 
number: 602-269-2649. Or write him at 
Konan Corporation. 1434 N. 27th Avenue. 
Phoenix. Arizona. 85009. 
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DISK GENERAL LEDGER 

Stores full sales and expense infor 
mation on the Apple Disk. Searches are 
allowed on numerous fields in both sales 
and expense records. Monthly statement 
generation and expense, sales and general 
summaries are available. 

Price on diskette $60.00 

DISK CHECKBOOK REGISTER 

Posting, listing, and reconciliation to the 
bank statement are included in the pro¬ 
gram. Complete check information is re¬ 
tained on the disk and searches on 
outstanding checks, specific date, payee, 
item or amount are possible. Several dif¬ 
ferent accounts can be maintained on one 
disk. Program is also interactive with disk 
general ledger if need be. 

Price on diskette $35.00 

DATA BASE AND 
LABEL PRINTER 

General data base program that also 
serves as a mini mailing list. Great for stor¬ 
ing and retrieving any type of data to disk. 

All interaction with the program is done 
thru a ‘menu’. You can add to files, list, 
print labels, search, clear files, and correct 
entries. Approximately 450 files per disk. 

Price of diskette $30.00 

DISK TEXT EDITOR 

This is a line oriented text editor which 
supports up to 255 columns, adjustable 
margin, replacement of a specified string 
with another string, save text to disk, text 
may be in either upper or lower case, out¬ 
put text to printer and justify text. 

Price on diskette $60.00 

MAILING LIST 

Mailing list is a professional mailing list 
program that allows you to create and 
maintain a mailing list of up to 500 names 
on a single diskette. You have the ability to 
print all of your list or any selected group of 
names by means of a code field associated 
with each name. Also the names are 
printed in zip code order so that you can 
take advantage of bundled mail discounts 
from the post office. 

Price on diskette $39.95 

FORM LETTER 

This program allows you to use a letter 
created with the disk text editor and a mail¬ 
ing list created with the Mailing List Pro¬ 
gram to print personalized form letters. It 
features replacement of names, titles, 
addresses, etc... within the body of the let¬ 
ter. The same code selection process as in 
the mailing list program is available and the 
letters are also printed in zip code order. 

Price on diskette $29.95 

PLEASE ADD $2.50 FOR 
SHIPPING AND HANDLING 


A-VIDD 

electronics co. 


2210 Bellflower 
Boulevard 
Long Beach, CA 
90815 

(213) 598 0444 
(714) 821-0870 


Three blocks South of the San Diego 
Freeway in the Los Altos Center. 

Mon - Thurs 8:30 AM - 5:30 PM 
Hours: Fri 8:30 AM - 9:00 PM 

Saturday 10:00 AM - 5:30 PM 
\^B of A, VISA & Master Charge accepted . y 



SOFTWARE ENGINEERING 
TECHNOLOGY SEMINARS 

Software Research Associates has sched¬ 
uled Professional Development Seminars 
on seven topics in Software Engineering to 
be presented during May through June 
1979 in San Francisco. The series is intend¬ 
ed for both management and technical per¬ 
sonnel involved in all phases of Software 
Engineering. 

The series brings together a group of 
technical specialists in a uniform presenta¬ 
tion format designed to answer deep tech¬ 
nological questions of importance in con¬ 
temporary system design and implementa¬ 
tion. Additional presentations are planned 
for the Washington, D.C. area in the Fall, 
and Europe in 1980. Seminars included 
are: 

Performance Enhancement Technology 
(17-18 May 1979, $425) by Domenico 
Ferrari, which focuses on techniques for in¬ 
creasing the performance of software 
systems. 

Modern Software Engineering Tool 
Technology (24-25 May 1979, $425) by 
Edward Miller, surveying available software 
tools that can be used effectively in all 
phases of a software system’s life cycle. 

Software Metrics Technology (31 May-1 
June 1979, $425) by Tom Gilb, which 
focuses on the new methods of measuring 
and quantifying software systems. 

Software Reliability Technology (21-22 
June 1979, $425) by Herbert Hecht, in¬ 
tended to address contemporary methods 
for assessing the actual reliability of any soft¬ 
ware system that is used in a critical situation. 

Software Costing Methods (28-29 June 
1979, $425) by Victor Schneider, an in- 
depth investigation into the latest technology 
for estimating costs associated with software 
design, development, testing and main¬ 
tenance. 

Registrations details are available from 
Software Research Associates, P.O. Box 
2432, San Francisco, CA 94126, (415) 
957-1441, Mrs. Jill Engelbrecht. 

OFFICE TECHNOLOGY RESEARCH 
GROUP SETS SPRING MEETING 

The Spring Meeting of the Office Tech¬ 
nology Research Group will be held at the 
Hotel Del Coronado in San Diego, Cali¬ 
fornia from April 30 to May 2. 

The Group is an international association 
of administrative executives interested in 
staying abreast of and planning for the use 
of Office of the Future technologies in their 
operations. 

For additional information about the 
Group write on company stationery to Mr. 
John J. Connell, Executive Director, Office 
Technology Research Group, Box 65, 
Pasadena, CA 91102. 

TELECOMMUNICATIONS SEMINAR 

A seminar program, Telecommunica¬ 
tions: Trends and Directions, designed to 
provide an in-depth briefing on the status of 
the telecommunications industry for mem¬ 


bers of the financial community has been 
scheduled for May 22-24 at Dunfey’s Hyan- 
nis Resort at Hyannis, Massachusetts. 

The Hyannis Seminar is sponsored by the 
Communications Division of the Electronic 
Industries Association. The purpose of the 
meeting is to bring in top level executives 
from the telecommunications industry for 
frank and open discussions describing the 
present status and future direction of their 
segment of this fast-changing industry. 

For registration information contact Peter 
Bennett or Karen Settevig at (202) 
457-4937. 


CONFERENCE AND EXHIBIT 
ON SMALL COMPUTERS 

The Clemson Conference on Small Com¬ 
puters, “Application for Business, Industry, 
Education, Medicine” will be held at Clem¬ 
son University on May 23-24. The con¬ 
ference is for those interested in small com¬ 
puters but who have a wait-and-see attitude, 
as well as persons already involved with 
small systems. Applications to be discussed 
are business, industry, engineering, 
medicine, education, agriculture and even 
the home. 

For registration information contact 
Continuing Engineering Education, Clem¬ 
son University, Clemson, SC 29631. For 
details on applications to be discussed or 
equipment exhibits contact W.J. Barnett, 
Electrical & Computer Engineering Dept. 


IEEE CHICAGO CONFERENCE 

ON CONSUMER ELECTRONICS 

A special session on Teletext, Viewdata, 
and related Text-on-Television subjects is 
being organized for the 1979 Chicago 
Spring Conference on Consumer Elec¬ 
tronics, which will take place on June 4 and 
5 at the Arlington Park Hilton Hotel near 
Chicago’s O’Hare Airport. 

For information contact session organizer 
Dr. Walter S. Ciciora at (312) 391-8431. 


NATIONAL SOFTWARE SHOW 

Software Exhibitors, Ltd. has finalized 
plans for a national show called The Soft¬ 
ware Supermarket to be held in New York 
City on June 4-7, the same time as the Na¬ 
tional Computer Conference (NCC). 

The show is at the Hotel Taft. For more 
information contact Lee Mulder, (312) 
529-3518. 


METRIC STANDARDS STRATEGY 
MEETING SCHEDULED 

“Developing the U.S. Metric Standards 
Strategy” is the subject of a seminar to be 
held June 4-5 at the Sheraton O’Hare 
Motor Hotel in Chicago. The American Na¬ 
tional Standards Institute, which coordinates 
the development of voluntary national stan¬ 
dards in the United States, is sponsoring the 
meeting. 


32 INTERFACE AGE 


CIRCLE INQUIRY NO. 5 


MAY 1979 















Registration information is available from 
Claude H. Burns, deputy managing direc¬ 
tor, American National Standards Institute, 
1430 Broadway, New York, NY 10018. 


CONFERENCES ON COMPUTERS 
AND THE HUMANITIES 

Two major international conferences are 
scheduled at Dartmouth College in 1979. 
The Fourth International Conference on 
Computers and the Humanities (ICCH/4) 
will be held August 20-23. The Conference 
on Data Bases in the Humanities and Social 
Sciences will follow on August 24-25. 

ICCH/4 is the latest in a series held pre¬ 
viously at the Universities of Minnesota, 
Southern California, and Waterloo, Ontario. 
It is sponsored by the Association for Com¬ 
puters and the Humanities. 

There will be papers on the application of 
computers to research in language, litera¬ 
ture, musicology, history, archaeology, and 
other related disciplines. Selected papers 
will be printed in “Computers and the 
Humanities.” 

Further information is available from Pro¬ 
fessor Joseph Raben, Queens College, 
Flushing, NY 11367, (212) 520-7407, 
520-7428. 


CALL FOR COMPUTER MUSICIANS 

Due to the tremendous success of last 
year’s computer music concert during the 
PC ’78 show, the Philadelphia Area Com¬ 
puter Society is planning a full day con¬ 
ference on computer music which will in¬ 
clude tutorials, demonstrations, product 
reviews, workshops, and seminars. 

The conference will be held during one 
day of the PC ’79 show in Philadelphia in 
October. The conference will be followed by 
the evening concert of computer music, to 
be held in a large auditorium nearby at the 
University of Pennsylvania. A professional 
recording will be made as it was last year. 

If you are interested in participating in the 
concert or conference or would like a re¬ 
cording of last year’s concert, write to: Com¬ 
puter Music Conference, Philadelphia Area 
Computer Society, Box 1954, Philadel¬ 
phia, PA 19105. 


ACM 79 

The ACM 1979 Annual Conference will 
be held at the Plaza Hotel in Detroit, 
Michigan, October 29-31. The theme, 
“Advances of the 70’s — Challenges of the 
80’s,” focuses on the advances of the state 
of the art of computing during the past 
decade, the challenges that face computing 
in the next decade, and the transfer of com¬ 
puter technology from today’s research to 
tomorrow’s practice. 

For more information contact Mayford L. 
Roark, Ford Motor Company, The Ameri¬ 
can Road, Room 895 WHQ, Dearborn, Ml 
48121, (313) 323-1690. 


COMPUTER GRAPHICS WEEK 

Computer mapping and related software, 
hardware and data bases will be the subjects 
of a week-long international users’ con¬ 
ference July 15-20, sponsored by the Har¬ 
vard University Laboratory for Computer 
Graphics and Spatial Analysis. 

Called Harvard Computer Graphics 
Week ’79, the conference will be held in 
Cambridge, Massachusetts. The focus of 
this year’s conference will be currently 
available cartographic and statistical data 
bases, graphics hardware, software, and the 
electronic communication of geographical 
information. 

For details, contact Kathleen Quigley, 
Center for Management Research, 850 
Boylston St., Chestnut Hill, MA 02167, 
(617) 738-5035. 


INTRODUCTION TO DIGITAL 
ELECTRONICS AND 
MICROCOMPUTER INTERFACING 

This two week short course will be held 
July 16-27. It is a hands-on laboratory 
course for academic and industrial person¬ 
nel. There will be one microcomputer lab¬ 
oratory station for each two participants. The 
course entails approximately 60 hours of 
laboratory instruction. 

Reasonable living accommodations in¬ 
cluding free camping facilities. Tuition is 
$395. Academic credit is available. 

For more information and application 
forms contact Professor Philip Peters, 
Department of Physics, Virginia Military In¬ 
stitute, Lexington, VA 24450. 


UPCOMING SHOWS 

Electronic Conventions, Inc. plans these 
4-day shows: 

Wescon/79 Show and Convention will 
be held September 18-20 at Brooks Hall 
and the St. Francis Hotel in San Francisco. 

Midcon/79 Show and Convention will be 
held at O’Hare Exposition Center and the 
Hyatt Regency O’Hare on November 6-8. 

For more information contact Electronic 
Conventions, Inc., 999 No. Sepulveda 
Blvd., El Segundo, CA 90245, (213) 
772-2965. 


AUSTRALIAN COMPUTER SHOW 

Melbourne’s first home computer show 
will be held December 9-10, 1979, at the 
Box Hill Town Hall on Whitehorse Road in 
Box Hill. 

The show will be open from the hours of 
10 A.M. to 10 P.M. on Sunday December 
9, and 10 A.M. to 6 P.M. on Monday 
December 10. 

The admission fee is $2. For more infor¬ 
mation about the show contact Australian 
Seminar Services Pty. Ltd., telephone (03) 
267 4311. 


f 6800 PRODUCTS 
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SOFTWARE DYNAMICS EDIT 

This powerful 6800 editor is written in 
the TECO style. It will work on either 
Miniflex. Flex VI.0. or V2.0. 


Notable features include: 

—Two input files, reselectable from EDIT 
—One output file, reselectable from EDIT 

— Multiple commands allowed on com¬ 
mand lines 

—Commands for both line and character 
editing 

—Value registers 

—Commands strings can be taken from a 
file 

—Iteration commands for building custom 
editing commands 

—Arithmetic, logicals, and relational 
«,< = ,<> etc.) 

— Labels for edit programming 
Example: 

[[@>= '0&@<= # 9*1M| 
(@=32*lD]9VLj 

This example would scan an entire file 
and place a tab character in front of every 
line after the line number if any, and 
deleting all spaces at the beginning of each 
line. 

Price $100.00 

TECO® is a registered trademark of DEC. 

Software Dynamics Compiler Basic 
for Flex including the MAL assembler 
and Run time package: $329.00 

Dealer inquiries invited 

6800 FORTH 

Word oriented interactive compiler inter¬ 
preter. Totally structured language where 
you define your own words and syntax. 

On KC tape $34.95 


6800 Hardware: 

Smoke Signal 16K static memory board 
uses low power chip’s for reliable service. 
New low price $299.00 


Microtime 6800 

Plugs into any I/O port of the SWTPC 
6800. Supplies user with time in hours, 
minutes, seconds, AM or PM, month, date 
and year, (ie: 5/1/79 12:00:00 PM PST.) 
Provisions for optional battery or external 
A/C power supply. Supplied with software 
to set time, interrogate clock and print 
time. 

Assembled & Tested $95.00 

Bare Board w/Documentation $35.00 


A-VIDD 

electronics co. 


2210 Bellflower 
Boulevard 
Long Beach, CA 
90815 

(213) 598 0444 
(714) 821-0870 


Three blocks South of the San Diego 
Freeway in the Los Altos Center. 


Mon - Thurs 8:30 AM - 5:30 PM 
Hours: Fri 8:30 AM - 9:00 PM 

Saturday 10:00 AM - 5:30 PM 
\ ^B of A, VISA & Master Charge accepted. J 
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use TRcopy 

WITH YOUR LEVEL II TRS-80* 


TRcopy is a cassette tape copying system that lets 
you SEE what your computer is reading. 

COPY ANY CASSETTE TAPE” 

With the TRcopy system you can copy any TRS- 
80 Level n cassette tape whether it is coded in 
Basic or in machine language. You can also copy 
data created by programs and you can copy assem¬ 
bler listings. 

YOU CAN SEE THE OATA 

As the tape is being loaded, you can SEE the 
actual data byte-for-byte from the beginning to the 
end of the program. Up to 320 bytes are displayed 
at one time. ASCII characters are displayed on the 
first line and hexadecimal code is displayed on the 
following two lines. Data is displayed exactly as it 
is input including memory locations and check sums. 

I0ENTIFY PROGRAMS 

With TRcopy you can identify programs on cas¬ 
sette tapes without written documentation because 
you can SEE the filename. If you forget to label a 
tape, you can use TRcopy to display the tape contents 
and identify the cassette. 

VERIFY CASSETTE TAPES 

With TRcopy you can verify both the original tape 
and the tap>e copies. You can make certain that your 
machine reads the original tape correctly and that it 
makes byte-for-byte copies. TRcopy also counts as 
it reads giving you the exact length of the data. 

MAKE BACKUPS FOR YOUR PROGRAMS 

Now you can make backup copies of your valuable 
programs. Many times a cassette that you make will 
load better than one that is mass produced. The 
original can then be kep>t as a backup in case the 
copy is damaged. 

MAKE COPIES OF YOUR SOFTWARE 

If you are in the software business you can use 
TRcopy to make tested copies of your programs for 
sales distribution. TRcopy produces machine lan¬ 
guage tapes that are more efficient than those pro¬ 
duced by the assembler itself. 

RECOVER FAULTY DATA 

With TRcopy you can experiment with the volume 
and level controls and you can SEE what the computer 
is reading—even if your computer will not read the 
data through normal read instructions! In this way it 
is possible to read and copy faulty tapes by adjusting 
the volume control until you SEE that the data is 
input properly. 

SIMPLE-FASCINATING-FUN 

TRcopy is not only a practical utility program. It 
is also a fascinating graphics program that lets you 
SEE, for the first time, cassette data as your com¬ 
puter is reading it. And It's as simple as 1-2-3. 
Just load, verify and copy. You will now be able to 
use cassette tapes with confidence knowing that 
TRcopy is there when you need it. 

The TRcopy system is a machine language program 
with documentation explaining tape leaders, sync 
bytes, check sums and other formatting conventions. 
With the TRcopy system, you can SEE what you are 
doing! 


TRcopy Systom Including 
Cassette Tape and Documentation 


QQ95 

wjeMEsm 


Orders accompanied by money order 
or cashier's check mailed some day. 

Orders paid by other check shipped in 14 days. No COD's. Return 
within 10 doys (or a full refund if you are not satisfied. 


*TRS80 iso trodemork 
of the Tondy Corporation. 


“You cannot copy tl 
TRcopy cossette. 


Data/Print 

DEPT. FA. BOX 903, FARGO, N. D. 58107 


FROM THE_ 

FOUNTAINHEAD 


By Adam Osborne 

In my February column, I asked readers 
to telephone me with comments regarding 
adequacy of business systems. I received 
plenty of responses. 

Most callers commented on points I raised 
in my February column. Many of these 
comments were very significant. Jerry 
Gaynor, the Pertec Disk Products manager, 
called to discuss Winchester disks. He ac¬ 
curately pointed out that too many articles 
discussing Winchester disks neglect to men¬ 
tion that these are fixed disks, permanently 
sealed in an enclosure from which they can¬ 
not be removed without completely dis¬ 
assembling the disk unit. Thus, you cannot 
have a rack of Winchester disk packs. To 
back up a Winchester disk, you must either 
have an additional disk with a removable 
cartridge, which makes no sense since it 
costs more than the Winchester, or you 
must use floppy disks, which could become 
tedious. 

Winchester disks will have capacities 
ranging from 10 million to 100 million 
bytes. Double-density, double-sided floppy 
disks will have a capacity of 1 million bytes 
each, which means that you will need 
anywhere from 10 to 100 diskettes to back 
up a single Winchester disk. 

Jerry also suggested that keyboard manu¬ 
facturers put a return key to the left of the 
numeric pad to accommodate operators 
who are used to adding machines. 

Tom Buckler of Data Domain called to 
endorse my warnings against overusing 
floppy disks. Tom believes that many im¬ 
aginative but inexperienced enthusiasts 
simply do not understand the importance of 
adequate hardware, and in particular, large 
disk capacities. I can only agree with Tom, 
especially when I see literature describing 
products such as the Nestar Systems Cor¬ 
poration “Cluster One/’ The “Cluster 
One” is a pair of floppy disk drives which, 
supposedly, is to be shared by a large num¬ 
ber of microcomputers. True, Nestar is of¬ 
fering Cluster One as something less than 
full-blown time sharing, but in my opinion, it 
represents an unrealistic over-utilization of 
the limited capabilities provided by a pair of 
floppy disk drives. 

Bud Johnson called from Montana, in¬ 
quiring about the use of Selectric type¬ 
writers as printout devices. I have com¬ 
mented on Selectric typewriters in previous 
columns. Do not use Selectric typewriters as 
printout devices in any computer system of 
any kind. Mechanically, they are simply in¬ 
adequate. 

Michael Fungerolis from North Carolina, 
and Bill Jovert from Redlands, California, 
called to endorse the notes of caution in my 
column. Both agree that when you buy a 
microcomputer system, you should expect 
to get nothing other than what you can see, 
touch and use at the time of purchase. The 
only safe way to buy small microcomputer 
business systems is to assume that “what 


you see is what you get” and “what you 
cannot see does not exist.” 

I also got some calls naming “good 
guys.” The Structured Systems Group of 
Oakland was praised for its software. What¬ 
ever they offer is good and reliable. Callers 
also had nice things to say about Vector 
Graphic and Cromemco hardware. 

I do not know what will have become of 
IMSAI by the time this column appears in 
print. In late January and early February, IM¬ 
SAI management met with their creditors to 
work out some method of continuing to 
operate. I sincerely hope that solutions are 
found, since the microcomputer industry 
does not need a “belly up,” followed by a 
rush of nervous customers away from any 
computer with a new name. 

It is easy to forget the large contribution 
that Bill Mallard, Joe Killian, Bruce Van 
Natta and Phil Reid made to the microcom¬ 
puter industry. In my opinion, we have the 
IMSAI founders to thank for the degree of 
inter-product compatibility that exists today. 
In the early days, when MITS was a rising 
phenomenon, Bill took a chance and be¬ 
came the second major hardware manufac¬ 
turer of the emerging microcomputer in¬ 
dustry. He designed a product which, 
wherever possible, shared design charac¬ 
teristics with MITS. In particular, he used the 
MITS system bus, a de facto industry stan¬ 
dard. Whether you are a supporter or a critic 
of the S-100 bus is not important. What is 
important is that the IMSAI founders had the 
foresight to value compatibility with 
somebody else’s product over the intran¬ 
sigence of unique designs, which are the 
scourge of the minicomputer industry. 

Helmar Herman of Creative Computer 
Applications sent me a description of his 
data management system, which is designed 
for the Micropolis floppy disk unit. Helmar’s 
data management system appears to be sim¬ 
ple, but sound. Those of you who are de¬ 
signing data processing applications around 
Micropolis floppy disks might save your¬ 
selves a lot of time by seeing what Creative 
Computer Applications has to offer you. 
They may be reached at (213) 265-6776. 

Radio Shack has sold more than 100 
million dollars worth of TRS-80 computer 
equipment in the first 18 months of selling 
this product. 

A number of Japanese and American 
semiconductor manufacturers are now 
announcing 64K bit dynamic RAMs. In- 
mos has been founded in Britain with a 64K 
bit dynamic RAM scheduled as one of its 
first products — presumably for delivery in 
1981. But IBM has been manufacturing 
64K bit dynamic RAMs, in volume, for 
almost two years. It is very fashionable to say 
unkind things about IBM, but I have to feel 
sorry for many of the superbly competent 
IBM engineers who pull off one design first 
after another, only to see their achievements 
ignored, or even slighted, by the technical 
press. □ 
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SOFTWARE PACKAGE CONTRACTS: PART II 

In Part I of this topic, software was identified to be, from a legal 
standpoint, a unique intelligence transmission medium accom¬ 
panied by a host of presently unsolved problems. It is because of this 
uniqueness that the software contractor as well as the user must 
clearly state in legal documentation just exactly what they have bar¬ 
gained for. One wants to either vend or purchase a software package 
without becoming a “test” case. Perhaps a simple way to state 
where the legal profession stands regarding computer related pro¬ 
ducts would be to relate my own personal experience. In combing 
through legal digests and journals for material for this column, I 
have more often than not found computer related topics under the 
topic of “Automation.” 

Before delving into the specific contractual material on software 
packaging contracts, a short comment on a common problem I fre¬ 
quently encounter in reviewing what I shall generically label “com¬ 
puter contracts” is in order. Lawyers who do a lot of contract work 
prefer length to brevity. One might immediately suspect that this 
situation exists because lawyers, like their political cousins, are 
longwinded and feel that the longer the document the larger the fee. 

But the more information that can be tied down and clarified the 
better. Litigation is directly related to ambiguities and failure to spell 
out important bargaining points. 


But the more information that 
can be tied down and clarified 
the better. Litigation is. . . 
related to ambiguities and 
failure to spell out 
important bargaining points. 


Besides ambiguity and omissions, the most frequent mistakes I 
see in non-lawyer drafted contracts are severe inconsistencies ex¬ 
isting between contract clauses negating the intent of both clauses. 
Two contract clauses need not negate each other directly to cause a 
problem, they need only touch tangentially. Where a software pack¬ 
age is licensed in return for a percentage of user’s gross receipts, it is 
not uncommon to see the terms “net income,” “sales proceeds” 
and “profit” all referring to the identical item. The result: an accoun¬ 
tant’s nightmare and a litigator’s dream. 

To be sure, those who market software may object to a long con¬ 
tract. I feel that a sales oriented input is mandatory to the legal drafts¬ 
man to help him gauge language tradeoffs for creativity in marketing 
approach. 


your 

microcomputer 
can become a 
development 
system 
for only $190 

PRAGMATIC DESIGNS’ NEW DBM-1 FEATURES: 

• 2048 BYTE EPROM EMULATOR 

• EMULATE 2708, 2758, 2716, TMS2716 EPROMS 

• S-100 CARD FORMAT 

• HARDWARE ADDRESS TRAP 

DBM-1 helps you simplify program development for dedicated 
applications. It is a shared memory card which looks like RAM to 
an S-100 computer and like EPROM to an applications computer. 
Programs for the application computer are developed using the 
S-100 system, the program is loaded into the DBM-1, and the two 
computers are connected by one or two 24 line dip cables. 
DBM-1 now looks like the application computer's program 
memory. During debugging you use the S-100 computer's 
monitor or debugger to make program changes, so the program 
can be completely debugged before you place it in EPROMS. 
DBM-I’s hardware address trap can be set to trigger whenever 
the application computer reaches a specific point in the pro¬ 
gram. This trap signal turns on a trap LED and generates signals 
which can be used to halt or hold program execution. 

-then you can 
develop 
programs 
for our new 
$125 computer! 

CPU-1 IS A COMPLETE CONTROL COMPUTER ON A SINGLE 
4.5 X 7" CARD: 

• 8085 MICROPROCESSOR WITH 256 BYTES OF RAM 

• 22 I/O LINES; SERIAL I/O PORT 

• PROGRAMMABLE COUNTER/TIMER 

• SOCKETS FOR 1-4K OF EPROM 

• USE 2708, 2758, 2716, or TMS2716 EPROMS 

• WIRE WRAP AREA FOR SPECIAL FUNCTIONS 

The system I/O and control signals are bussed to pads adjoining 
the wire wrap area, allowing you to easily customize CPU-1 for 
your application. The card is also laid out with space for you to 
add an on board power supply. 

For larger applications CPU-1A has all the features of CPU-1 
expanded to 512 bytes of RAM, 44 I/O lines, and two program¬ 
mable counter/timers. 

PRICES’ 

DBM-1 $190 KIT, $270 ASSEMBLED AND TESTED. 

CPU-1 $125 KIT, $175 ASSEMBLED AND TESTED. 

CPU-1 A $160 KIT, $210 ASSEMBLED AND TESTED. 

24 LINE DIP CABLE FOR USE WITH DBM-1 (1 OR 2 REQUIRED), 
$10 EA. CRYSTAL OPTION FOR CPU-1 and 1A, $10. 

Please add $2.00 for shipping and handling. California residents 
add 6% sales tax. Phone, VISA and MASTERCHARGE orders 
accepted. 

ORDER NOW AND START USING DBM-1 AND CPU-1 TO HELP 
YOU DEVELOP YOUR OWN MICROCOMPUTER BASED SYSTEMS. 

pragmatic designs 


711 Stierlin Road 
Mountain View, CA 94043 
(415)961-3800 
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CJDhv reinvent 
the coheel ? 



Graham-Dorian Software Packages are 
turn-key programs. We supply the 
source... you tailor for your customers. 
And save months of tedious work! 

Here are sophisticated programs that meet the 
information processing needs of the business 
professional. Graham-Dorian packages are fully 
documented, including source code in each package 
and easily understood operator instructions. 

All programs compatible with any Z-80 or 8080 
CP/M® system, and can be ordered in standard 
eight-inch disk either double or single density, or 
mini-floppy disk. Each package contains a disk with 
CBASIC-2 compiler, CBASIC-2 run command, 
XREF command, the Graham-Dorian software 
program in INT and BAS file form, plus a user’s 
manual and hard copy source listing. Average 185K 
of programs per package. 

• Inventory Package — Can be connected with 
cash register for point of sale inventory control. 
Number of on-line items limited only by disk space 
available. 

• Cash Register Package — Creates daily sales 
reports containing information on gift certificates, 
paidouts, overrings, refunds, and how much in 
each category a salesperson sold. 

• Payroll Package —- Handles 100% of all 
necessary payroll functions including state income 
tax tables for your state. Ideally suited for both 
large and small companies. 

• Apartment Package Said one user, 
“Obviously, this was developed by apartment 
owners.” The package fills virtually all the needs of 
apartment owners and managers. Ideal for 
projects with 75 units or more. 

$695.00 for any package listed above. Any single 
package order includes free CBASIC-2. 

Send for detailed packet of information explaining 
capabilities of each program and sample runs. Or, 
phone our software technicians. 

Watch for new Graham-Dorian Software Program 
releases. Attractive dealerships available. 

Graham-Dorian Software Systems 
programs are copyrighted and require 
licensing agreement. 



Visa and Master Charge accepted. 

Graham-Dorian Software Systems 

A Division of Graham-Dorian Enterprises 
211 N. Broadway / Wichita, KS 67202 
(316) 265-8633 


I conclude my general comments on software contracts and now be¬ 
gin a discussion of the scope of financial terms in software contracts. 

CHARGES BY TYPE 

Every charge a user pays for the software should be defined and 
located in a single place in the contract. This prevents wrangling 
over hidden charges. The most frequently encountered charge is the 
cost of the package or the monthly license fee. Other charges might 
include taxes, user support, document reproduction, travel costs, 
and machine time necessary for the vending organization to test and 
install the system. If charges are stated in other parts of the contract, 
they should be cross-referenced to the main definitional paragraph. 

PAYMENT TERMS 

The timing of payments is critical to both vendor or user. From 
the user perspective, advance payments are undesirable unless col¬ 
lateralized by some product or deliverable. Alternately, the vendor 
must decide how to structure “progress” payments. Generally, it is 
better for the software organization to insist upon earlier payments in 
direct proportion to the degree of customization present in the 
package. For a standard package, however, a suggested payment 
schedule might be: 

25% upon delivery of a copy of the package and its supporting 
documentation. 

25% upon successful on-site installation and operation. 

25% upon user acceptance or not later than 30 days after in¬ 
stallation. 

25% upon acceptance after expiration of the warranty or free 
maintenance period. 

If the user makes advance progress payments he may be wise to 
place them in escrow pending package delivery. Some legal com¬ 
mentators have stressed user protection in package contracts 
predicated upon questionable financial responsibility of the software 
organization. 

Nevertheless, if the user anticipates measurable loss due to 
nondelivery a money damage clause should be inserted. A specific 
amount or damage formula is prudent. This is known as a “li¬ 
quidated damage clause.” When it is reasonable in amount, it 
avoids the expensive necessity of “proving” damages. If it is unrea¬ 
sonable in amount, it may be classified as a penalty and stricken 
from the contract by a court of law. If no specific loss occasioned by 
nondelivery is foreseeable, a damage clause calling for 10% to 15% 
of the contract price will probably be held to be reasonable. It is ob¬ 
vious that a software vendor should disclaim, whenever possible, a 
nondelivery damage clause. This is especially critical where the ven¬ 
dor is pioneering a new or esoteric programming approach for a 
user’s particular needs. The law is generally unforgiving when the 
cost of implementing a feasible technological innovation is commer¬ 
cially impractical or prohibitive, especially if vendor has contracted 
to produce the desired result. 

PRICE PROTECTION ON LICENSE FEE 
AND OTHER CHARGES 

If a license fee is renewable, it is desirable for both user and ven¬ 
dor to establish a renewal price or formula. The same is true of other 
charges like a maintenance fee due the vendor after expiration of the 
warranty period. This is especially important from the user perspec¬ 
tive where his vendor alone is capable of providing the necessary 
maintenance. 

Throughout this and the previous column I have been using the 
term “contract.” It matters little what the name (or the lack of name) 
of the document is; it can be a short simple “businessman’s” letter, 
or an “Agreement.” What is important is whether or not a binding 
enforceable bargain is in effect. 


Elliott MacLennan practices in the areas of business planning, 
taxation, and computer law. He can be contacted at: 

Law Offices of Richard L. Carico, P. C. 

745 Alcoa Building, One Maritime Plaza 
San Francisco, CA 94111 

The material presented in this column is intended for genera / in¬ 
formation. The reader should seek competent professional advice 
prior to applying this material to a specific situation. 
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MICRO 
MEDICINE! 


By Wm. V. Weiss, M.D, 

Professional Engineer 


After a number of columns and some feedback from readers, it 
seems appropriate at this point to ramble a bit about recent com¬ 
ments and questions. The medical people have uniformly demon¬ 
strated a “learning-curve” complexion in their inquiries, confirming 
my opinion that there is a tremendous desire for greater familiarity 
with the “how” and “why” of data processing systems as well as 
with “what” kinds of applications are available. Although there is a 
natural interest in rationalization of system purchases on a 
“business-tool” basis, there is a clear desire by many health profes¬ 
sionals to familiarize themselves with computers as a means of im¬ 
proving health care delivery. 

Many physicians appear confused by the growing array of office 
systems for routine business functions, and many are awaiting the 
IBMs and DECs to get into the act with cheaper turnkey solutions to 
their accounting problems. Some have already committed them¬ 
selves to service-bureaus for these functions. 

There is no question the American physicians are moving into 
some kind of system in far greater numbers than their Canadian 
counterparts. The principal reason is that systems are 40% more ex¬ 
pensive in Canada and the physicians earn on the average about 
one-half their American counterparts. 

A number of physicians have expressed interest in applications of 
computers beyond accounting functions. I would recommend to 
those physicians with a working knowledge of data processing that 
The Physicians’ Microcomputer Report , published by Dr. G.M. 
Orosz, is an excellent medium of exchange. 

The professional computer people who have written in have posed 
more challenging “here and now” questions. I would like to touch 
on one area which was raised by Bernard P. Wess, Director, Univer¬ 
sity of Maryland Computer Center. He outlined the value that data 
processing would bring to group practices: better and more access¬ 
ible medical records, better local fiscal and personnel management, 
and finally, access to large central databases to improve the quality 
of care. These benefits are self-evident. The main problem is im¬ 
plementation and the main impediment is people. 

First let us examine the prevalence of group practice. Is most 
health care today delivered in large groups, or even small groups? 
No. A “group” can be defined as a collection of health professionals 
in one or more locations with common files, common billing, and 
common income distribution. 

If Canadian experience has any validity (being “socialized” we 
might expect more groups), true group practice is still in the 
minority. In Canada “group” practice accounts for approximately 
25% of the physicians in practice. Of more interest is the breakdown 
of the size of groups within this figure. By far the most common 
group size is 3-5 professionals per group. I put group in quotes 
because many groups do not fit the definition and only share 
overhead and maybe records. Why so many words on the subject? 
As we move into the eighties, with nationalization of health care a 
probability, the current individualism and independence of most 
practitioners is often underestimated. 

Canadian experience here is most important in order to get 
perspective as to priorities. Computers are used extensively by the 
government for payment of claims by large central agencies, but 
there are no terminals in any physicians’ offices. We must recognize 


“"PASCAL 

ENGINE 

Not just a machine that emulates one. 

The Pascal engine doesn’t merely interpret P-Code, its instruction 
set is P-Code. This powerful computer runs the full UCSD Pascal 
Operating System and includes all of the following items: 

• Pascal microengine™ with 32 bit FLOATING 
POINT instructions including floating point 
MULTIPLY & DIVIDE with provision for expanding 
instruction set to include double precision. 

• 64K bytes (32K words) of RAM 
expandable to 128K bytes. (64K words) 

• FLOPPY DISC CONTROLLER with 
direct memory access (DMA) 
switch selectable for: 

— single, or double density 

— 8" floppy or mini floppy 

— 1 to 4 drives (same type) 

• Complete UCSD Pascal Operating System 
—PASCAL compiler —File Manager 
—BASIC compiler —Screen oriented editor 
—GRAPHIC package —Debugger 


• Two RS-232 asynchronous ports 
(110-19.200 baud) 

• Two 8-bit parallel ports 


• Auto test microdiagnostics 


• Documentation 

$2600 Complete with stylized low profile housing 
and power supply 



CUTTING EDGE OF 
TECHNOLOGY,, Inc. 


19th floor. 61 Broadway, New York, N.Y. 10006 


212-480-0480 
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Fantastic New 
TARBELL DISK BASIC 
Only $48.00 



• Runs on 8080, 8085, or Z80 
•Searches a file quickly for a string. 

• Up to 64 files open at once. 

• Random access. 

• Assignment of I/O. 

•Alphanumeric line labels are allowed. 

• Read and write string or numeric data. 

• Unlimited length of variable names and strings. 

• Procedures with independent variables. 

• Number system 10 digits BCD integer or floating 

point. 

• Chain to another program. 

• Cause programs to be appended onto programs 

already in memory. 

•Cause interpreter to enter edit mode using 15 
single character edit commands. 

Tarbell BASIC occupies 24K of RAM. Tarbell 
BASIC on CP/M* Disk $48. Source on paper or 
CP/M Disk $25. 

*CP/M is a Trademark/Tradename of Digital Research. 

• 950 DOVLEN PLACE. 

CARSON. CA 90746 
(213) 538-4251 • (213) 
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that when the systems (batch) were set up, cheap, small systems did 
not exist. It has been government policy (Canada, Britain, etc.) that 
extensive use of computers for other than accounting purposes was 
just too expensive. 

If both Canadians and Americans could start from scratch with an 
ideal system, there is no question that centralized medical records 
(computer-accessible) would be cost-effecitve. But we have 
monstrous paper systems already established, and conversion will 
be astronomically expensive. As American health care moves 
towards some kind of national health system, the first priority is to 
provide access to care for all with assured payment for tests, 
hospital, physicians, etc. As inevitable cost rises (secondary to 
unlimited demand for service) occur, a vast national network looks 
more and more costly. The imposition of a utopian system on a 
highly individualized group of people seems unlikely at the mo¬ 
ment; and yet, physicians are unlikely to produce their own com¬ 
puter solution due to unfamiliarity with computer networks and lack 
of coherent goals and motivation. 

Dr. J. Maxmen, in his fascinating book “The Post Physician Era” 
(Wiley-lnterscience Series), predicts that the “Medic-Computer 
Model” will be the successor to our current system by the early 2000s. 
This highly eloquent prognostication deserves more than passing 
mention because it is a very plausible consequence of the current 
developing trends. The cycle (bind) as I see it will become: I must 
utilize any technology which enhances my diagnostic and therapeu¬ 
tic effectiveness — the computer may (and probably will) do this — 
thus I am obliged to use it. In fact, as time goes on it may become 
“bad or malpractice” not to use computers in the provision of health 
care. Thus the implementation of Maxmen’s “future” seems assured. 

I believe this scenario deserves extensive discussion by both phy¬ 
sicians and patients as we attempt to mold the future. Access to large 
amounts of medical information by the general public will change 
their dependence on physicians for advice. I predict that fairly soon, 
dialogues with a terminal will plan a patient’s investigation and treat¬ 
ment. Physicians must be prepared to adapt to the possibility of 


“technological bypass” or credibility will start to fade. There are cur¬ 
rently a few demonstration projects underway in North America in 
which the TV system will become a terminal dialogue system. As 
this spreads (and I believe it may be faster than the medical profes¬ 
sion adopts computer technology), there may be a period in which 
people learn more about certain health problems than their physi¬ 
cians! No physician (or other health personnel), no matter how 
devoted to keeping up in his/her specialty or in medicine generally 
can keep up on all the new information pouring out of the research 
centers. Often a patient reads about a treatment his/her physician is 
not aware of. 

How will the networks Mr. Wess has proposed come to pass? I 
would imagine there will be grants to several of the well-known aca¬ 
demic medical centers to start the development of reference centers 
to which peripheral clinics can electronically refer on a regular basis, 
or perhaps some large media, or computer organization will take a 
chance on providing an information system that is attractive and 
cost-effective enough to attract subscribers. The most likely bet is 
that as “multimedia” two-way communication between remote ter¬ 
minal and central system becomes a fact of life, health-related 
material will just be added naturally. This is not very far away. Until 
then, individual physicians will experiment with local office or clinic 
systems which serve primarily an operational function rather than a 
reference or utopian function. 

Clearly these events will not be precipitous, but the transition is 
happening faster than most knowledgeable observers would have 
anticipated. Recognizing the need for the discussion, the Faculty of 
Medicine at the University of Toronto is planning a Symposium next 
fall around the prediction and selection of several “FUTURES”, 
based on technological trends and sociological and other non¬ 
technical factors. □ 


The author can be contacted at Biolithics, 600 Sherbourne St., 
Suite 803, Toronto, Ontario, Canada M4X 1W4. 
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• Random seek to file at more than 100 
inches per second. 

• Typical access time is 10 seconds or less. 
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THE 
MICRO¬ 
MATHEMATICIAN 


By Dr. Alfred Adler 


COMPLEX NUMBERS 

Complex numbers are of great importance in practically every 
branch of applied science, but particularly so in electrical engineer¬ 
ing. Phase relationships between signals or between voltage and 
current in circuits containing inductive or capacitive reactance are 



Consider for example the circuit shown in Figure 1, where E is an 
AC signal. E R , the voltage across R, is in phase with the current, I. 
But E,, the voltage across L, leads by 90 dg. This can be repre¬ 
sentedby the vector diagram in Figure 2. The point P represents the 
sum of E r + E l , and has a magnitude E and a phase angle 0. In¬ 
stead of carrying E R and E L as separate quantities and using cumber¬ 
some trigonometric manipulations, the vector E can be treated as an 
entity by the introduction of complex numbers. 

IMAGINARY 

AXIS 


El 


REAL 
-AXIS 

Figure 2. Vector diagram of a series circuit contain¬ 
ing resistance and inductance. 

A complex number is a quantity of the form a + ib, where a and b 
are real numbers and / is the square root of -1. The number a is called 
the real part and the number b is called the imaginary part. The 
reader should not be concerned that he cannot envision the square 
root of -1 in the real world, (neither can anyone else). Sufficient that 
he understand that it is a mathematical device whereby the imagi¬ 
nary part is rotated 90 dg. counterclockwise. In other words, any 
quantity that is multiplied by / has its phase angle advanced by 90 dg. 

Referring back to Figure 2, we can represent E as the complex 
quantity E R + iE L . Note that the horizontal axis in Figure 2 is the real 
axis (the real part is plotted in this direction), and the vertical axis is 
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from DEC 
LA34 DECwriter IV 

*1,199. 00 


• 110 or 300 baud, RS 232C serial 
ASCII 

• Friction feed, paper width to 15" 



New 

from DIABLO 

DIABL01640 $ 2,690. 00 
Receive-only $ 2,331.®® 

High-quality daisywheel printing at 
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• 10,12,13.2,16.5 characters/inch 

• 2, 3, 4, 6, 8, or 12 lines/inch 

• 22”Wx7 ,, Hx 15 1 /2 ,, D, 25 lbs. 


Teletype 43 $ 999.00 

• RS 232C, 110 or 300 baud 

• Upper/lower case full ASCII 

• Pin feed, 12” x 8 V 2 ” paper 


T.l. 810 printer $1,695. 00 

• 150 characters per second 

• RS 232C serial interface 

• Adjustable forms tractor 

• Upper/lower case option $90.00 



S0R0C IQ 120 5 795. 00 

• RS 232C, upper/lower case full 
ASCII 

• Numeric keypad, protected fields 

• Cursor keys plus addressable 
cursor 

• Auxiliary extension port 


S0R0C IQ 140 s 1,250. 00 

• RS 232C and 20mA current loop 

• Extensive editing features 

• 25th line terminal status display 

• 16 function keys (32 with shift) 



To Order: Send certified check (personal or company checks require 
two weeks to clear) including handling* and 6% sales tax if delivered 
within California. 

‘Handling: Less than $2,000, add 2%; over $2,000, add 1%. Everything 
shipped freight collect in factory cartons with manufacturer’s warranty. 


Visit MICROMAIL at the National Computer Conference — Personal Com¬ 
puting Festival, New York City, June 5-7, Booth 128. 
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A fully interactive ecologic model. Allows 
manipulation of all system variables. Plots 15 
variables in 3 different graphs on any standard 
printer. Begins in the year 1900 and projects all 
values at any interval up to selected ending 
year. Seven variables (Birth Rate, Death Rate, 
Pollution Ratio, etc.) may be dynamically al¬ 
tered at selected dates within each program run. 

All variables and their behavior are fully 
compatible with Jay W. Forrester’s Model 
WORLD2, as described in World Dynamics 
(Wright-Alien Press, 1971). 

Variables graphed: 


POPULATION 
NAT RESOURC 
POLLUTION RATIO 
QUALOF LIFE 
CAP INVESTMENT 


POLLUTION GENERATED 
FOOD RATIO 
LIFE EXPECTANCY 
BIRTH RATE 
CROWDING RATIO 


MATERL STD OF LIV 
NAT RESOURC USAGE 
CAP INVEST RATIO 
CAP INVEST RAT. AG. 
CAP INV AGRIC FRACT 


Two different versions provided on each 
diskette, both with complete source listings, 


and manual. 

Manual only, with source listings.$8.00 

5%” Diskette-North Star BASIC.$28.00 

8” Diskette-CBASIC.$32.00 


At your computer store, or from 


Berkeley Medical Data Associates, inc 

MICROCOMPUTER CONSULTANTS 

P.O. Box 5279 
Berkeley, California 94705 
(415)653-6707 


the imaginary axis (the imaginary part is plotted vertically). Thus in a 
sense a complex number is a way to write two numbers as one, yet 
keep track of the two separate parts. The beauty of the mathematics 
of complex numbers is that during the manipulations the two parts 
become totally inseparable and yet when the manipulations are 
completed and the solution presents itself, everything sorts itself 
back out properly. 

In the manipulation of complex numbers, addition and subtraction 
are rather straightforward, multiplication and division are a bit more 
involved, and powers and roots are somewhat more complicated. A 
computer program or subroutine that performs these manipulations 
is a real time saver. Such a program is presented later in this article. 

Let us start by examining the details of these manipulations. First 
of all, complex numbers obey the ordinary rules of algebra; and sec¬ 
ond, a complex number equals zero only if both the real and the im¬ 
aginary parts equal zero. These two rules are sufficient to enable us 
to define addition, subtraction, and multiplication. Complex 
numbers are added by simply adding the real parts to each other and 
adding the imaginary parts to each other, and similarly for subtrac¬ 
tion. For example, let z equal the complex number a + ib, and let w 
equal the complex number c + id. Then 

z + w = a + ib + c + id — a + c + i(b + d) 

In other words, z + w is a new complex number whose real part is a 
+ c and whose imaginary part is b + d. 

Complex numbers may be multiplied just as any pair of two part 
expressions are multiplied. For example, we know that 

(x + 2)(y + 3) = xy + 2y -l- 3x + 6 

Similarly, 

zw =* (a + ib)(c + id) = ac -I- ibc + iad + i 2 bd 

Note that i 2 = -1, since by definition i = \f - 1. Thus i 2 bd = -bd. 
Therefore zw = ac - bd + i(bc -I- ad). This of course is another 
complex number where ac - bd is the real part and be + ad is the 
imaginary part. 

Complex numbers may easily be divided by converting the de¬ 
nominator into a pure real number. This may be done by multiply¬ 
ing both numerator and denominator by the conjugate of the de¬ 
nominator, that is, the denominator with the sign of the imaginary 
part reversed, as follows. 

z (a + ib) (a + ib)(c - id) ac - bd + i(bc + ad) 

w" (c + id)"“ (c + id)(c - id) <?+ d 2 

The process of converting the denominator into a pure real 
number by multiplying by the conjugate is called “rationalizing” the 
denominator. All that remains now is to divide both the real part and 
the imaginary part of the numerator by the real number c 2 + d 2 . 
This presents no difficulty and the result will of course be another 
complex number. 

In Figure 2 we gave a geometric interpretation to the complex 
number Ep + iE L . In this interpretation we displayed the real part 
along the horizontal axis and the imaginary part along the vertical 
axis. Such a set of coordinates are referred to as rectangular or 
Cartesian coordinates. We added, subtracted, multiplied and divided 
complex numbers expressed in these coordinates. It is possible, 
however, to express complex numbers (or anything else for that 
matter) in many other sets of axes, or coordinate systems. 

If we were asked, for example, to give directions to a tourist in a city, 
we might tell him to go four miles east and then three miles north. 
We would be using rectangular coordinates, mainly because that is 
the way most cities are laid out. But if we were in the open country 
we would be more likely to tell him to go five miles at an azimuth of 
53.13 dg. (Azimuth is the angle clockwise from north). If instead of 
using azimuth we told him to go five miles at an angle 36.87 dg. 
north of east (that is, counterclockwise from east), we would be us¬ 
ing polar coordinates. In the same manner, referring again to Figure 
2, we could express the vector E in terms of its magnitude E and its 
phase angle 0. 

The transformation from rectangular to polar coordinates may be 
made as follows. From the figure, Ep = Ecos0 and E L = Esin0. 
Thus E r + iE L = Ecos0 + iEsin0 = t(cos0 + isin0). By writing the 
series representations for cos0and for sin0, multiplying the latter by i 
and adding, we obtain, interestingly enough, the series expansion 
for e' e . In other words, cos0 + isin0 = e ie . This is known as Euler’s 
formula. 


40 INTERFACE ACE 


CIRCLE INQUIRY NO. 8 


MAY 1979 


























Now what, the reader will ask, does it mean to take a number (e) 
to an imaginary power? That is a very good question, and it can be 
answered, but unfortunately not within the limits of this column. For 
the present, simply enjoy the fact that this representation makes tak¬ 
ing powers and roots of complex numbers very easy. Note further 
that if n0 is substituted for 0 in Euler’s formula then cosn0 + isinn0 
= e in0 . Now from elementary algebra we know that (x n ) m = x nm . 
Therefore (ax n ) m = a m x nm . From this it follows that (Ee i0 ) m = E m e ,m0 . 
Summing up, we have converted the rectangular coordinates E R 
and E l into polar coordinates E and 8 by writing 

E r + iE L = E(cos0 + isin0) = Ee ie 

We have then shown that we can obtain a power of a complex 
number by converting it to polar coordinates and then taking the 
magnitude of the vector to the power but multiplying the phase 
angle by the power index. Thus, suppose we have the complex 
number z = 4 + 3i. The magnitude of z is 5 and the phase angle is 
36.87 dg. Thus the number may also be written z = 5e i36 87d s. To 
square this number we square the 5 and multiply by 36.87 dg. by 5. 
Therefore z 2 = 25e i7374dg . Transforming this back to rectangular 
coordinates we obtain z 2 = 25(cos73.74 + isin73.74) which 
equals 6.99991 + i24.000025. Noninteger powers are taken ex¬ 
actly the same way. 

A root is really a fractional power, for example a cube root is simp¬ 
ly the Yz power. Thus the above method for obtaining powers also 
obtains roots. However, it only obtains principal roots, not all the 
roots. This may be explained as follows. What is 2 to the second 
power? Obviously 4. But what is the second root of 4? Two is the 
principal root, but -2 is an additional root since -2 times -2 
equals 4. As a more complex (no pun intended) example, what is 
the 4th root of 16? The principal root is 2 since 2 4 = 16. An ob¬ 
vious additional root is -2, since (-2) 4 = 16, but there are still two 
additional roots. 

It is a consequence of the fundamental theorem of algebra that if 
m is an integer, there are m values of an mth root, therefore there 
are 4 values of a 4th root. The problem may be looked at as follows. 
A 4th root of 16 is a 2nd root (square root) of a 2nd root of 16. The 
2nd roots of 16 are 4 and -4. The 2nd roots of 4 are 2 and -2. 
We already have them. The two additional roots we are looking for 
are the 2nd roots of -4. Since -4 can be written as -1 times 4, 
the 2nd roots of -4 are the 2nd root of -1 times the 2nd roots of 
4. The 2nd root of - 1 is i by definition, therefore the 2nd roots of 
-4 are 2i and -2i. 

Rather than use fractional powers to obtain roots, we might as well 
modify the system slightly so that we can pick up all additional roots 
at the same time. Just as we showed previously that (Ee i0 ) m - 
E m e im0 , similarly if we take a root (or fractional power), (Ee i0 ) 1/m = 
E 1/m e i0/ m. In other words, we can extract a root of a complex 
number by taking the root of the magnitude of the vector, but 
dividing the phase angle by the root index. Thus, using the same ex¬ 
ample as before, to take the square root of z = 4 + 3i = 5e i36 87d 9- 
we take the square root of 5, but divide 36.87dg. by 2. 

In polar coordinates we obtain = 2.23607e i(18435dg) . 
Transforming this back to rectangular coordinates we obtain z ,/2 = 
2.23607(cos18.435 + isin18.435) = 2.12132 + i.707109 as 
the principal root. To obtain the additional roots we recognize that 0 
is an angle, and that 0 = 0 + 360dg. = 0 + 2(360)dg. = 
0 + n(360dg.), since each time we add 360dg. we are going around 
one more time. No matter how many times we go around the angle 
doesn’t change. Therefore instead of writing z = Ee i0 we can just as 
correctly write z = Ee i(0 + 360ndg) . We use n = 0 to obtain the prin¬ 
cipal root and successively n = 1,2, 3, etc. until we have obtained 
all the additional roots there are. For example, if we are taking a 4th 
root, n = 0 gives the principal root, and n = 1,2, and 3 give the 
additional roots. If we continue and let n = 4, we get no additional 
roots, we simply repeat the ones we already have. The square roots 
of z - 4 + 3i, therefore are 2.23607e i ( ,8435dg > and 
2.23607e i(3687 + 360dg > /2 = 2.23607e i < 198 435dg >. 

The first is the principal root and has been transformed into rec¬ 
tangular coordinates above. The second is an additional root and, in 
rectangular coordinates, = -2.12132 - i.707109. Note that if 
these two roots are plotted in rectangular coordinates they will lie 
180dg. apart. Square roots always come out this way. Cube roots 
always lie 120dg. apart; 4th roots always lie 90dg. apart and so forth. 
A rectangular coordinate plot of a complex number is called an 
Argand diagram, and on this diagram the roots of a complex 




IILY OF DISK 
FOR THE TR 


TRS-80 PERIPHERALS & SUPPLIES 


TRS-80 SOFTWARE 


PRINTERS 

LP779TR Centronics Model 779 with tractors $1179 
LP1 Centronics Model PI $399 

CABLES MEMORY * 39 

16KM 16K RAM Kit (specify computer or $84 

expansion interface) 

NEW PRODUCTS 

AC-1 A.C. Line Interference Eliminator $18.95 

NKP Numeric 16-Key Pad Kit $68 

DISKETTES 

VERBATIM 5” Soft sector $3.59 

GM 5” Soft sector $3.49 


New TRS-80 DOS 

$95 

Accounts Recievable 

$39 

Inventory Control 

$39 

Job Entry/Status 

$75 

Mail List 

$39 

SEND FOR FREE PRODUCT CATALOG 

BUY IT ALL... HARDWARE/SOFTWARE... FROM 
ONE SOURCE -TWO LOCATIONS TO SERVE YOU 


MICROCOMPUTER 

APPARAT, INC. 

TECHNOLOGY INC. 

6000 E. Evens Ave. Bldg. 2 

2080 S. Grand Ave. 

Denver. CO. 80222 

Santa Ana. CA. 92705 

303-758-7275 

714-979-9923 


ORDERING INFORMATION: Cash, check. Money Order Of Credit Card (MC or VISA). COD'S 
require 20% deposit. Orders will be processed and shipped within 3 to 10 days of receipt of order. Customers 
will be notified of any delay over 30 days. 


SINGLE HEAD DRIVES 

TF-1X Choose Pertec FD-200 or MPI $379 

TF-3 Shugart SA 400 $389 

DUAL HEAD DRIVE 

TDH-2 Dual Headed minifloppy, includescable $699 

CABLES 

TFC-2 Cable for two disk drives $25 

TFC-4 Cable for four disk drives $35 


j I 

We are the first manufacturer to offer 
you a complete family of add-on disk 
drives for your TRS-80. Select from 
single head ordual head tinits. Each 
comes complete with Power Supply 
and Chassis. 


MAY 1979 


CIRCLE INQUIRY NO. 29 


INTERFACE ACE 41 

































































number are always evenly spaced around the 
circle. This Is necessarily so since the angle 
0 + 360ndg. Is divided by the root Index. 

These manipulations are tedious, and a 
computer program that performs them is a real 
time saver. A listing Is presented of a program 
that will compute products, quotients, powers 
and roots of complex numbers. This pro¬ 
gram, written In PolyMorphic BASIC, version 
A00, gives not only the principal roots but 
all additional roots as well. In response to 
prompts, the user has only to state whether 
he wants a PRoduct, Quotient, Power, or 
Root and then give the numerical values. 

A series of sample outputs is also pre¬ 
sented. Note that the quotients in samples 2 
and 3 are the inverse of the product found in 
sample 1. Note further that the roots in 
samples 5, 7, and 9 are the inverses of the 
powers obtained in samples 4, 6, and 8. In 
this manner the program has been made to 
check itself. Sample output pairs 8/9 and 
10/11 involve noninteger powers and 
roots. These present no difficulty when this 
method is used. Sample pair 10/11 shows 
the use of either a power or a root to obtain 
the same result. 

Note that small inaccuracies (and large 
ones under proper circumstances) creep into 
the calculations. This is because a consider¬ 
able number of manipulations must be per¬ 
formed with only eight digit accuracy. Under 
these rather limiting conditions, roundoff 
and truncation errors, if any, pile up rapidly.□ 
For those who have specific questions re¬ 
garding math functions and the computer, 
write to Dr. Alfred Adler, 10360 E. Flint¬ 
lock Tr., Tucson, AZ 85715. 


PROGRAM LISTING 


SAMPLE RUN 


3 REM*»< 
« Rii* 

5 R Elf* • < 

6 REM 

7 REM**' 
6 HEM 


P R 0 0 K 


C 0 H F L 


VERSION 2.1 


WRITTEN NY - ALfKti) A. AULtn FHu 


> INPUT "STATE PRODUCT, QUOTIENT, FUWth, Oh ROOT : Pn.Q.P.h 
13 IF 0$»“R" THEN 200 
1b if c*.-p« Then too 
17 IF 0»»“0" THEN 70 

20 INPUT -STATE FACTORS :R1.I1.R2,I2 R1,11.82,12 
25 RiR1*R2-11*X2\X«A1*I2*I1*R2 
30 I"PRODUCT : REAL . “.A,"; IMAG. • -.1 
A0 I\C0T0 10 

70 INFUT1 -STATE NUMERATOR :R1,It ".R1.I1 
75 INPUT " AND DENOMINATOR :R2,I2 ".82,12 
78 D*R2*2*I2“2 

SO R.(R1»R2*I1»I2)/D\I«(I1*R2-R1»I2>/D 
85 I"CU0TIENT : REAL « “.R.": IMAG. * ",1 
90 I\G0T0 10 

100 INPUT -STATE BASE :R1.II AND EXPONENT :h -.R1.I1.N 

101 R9:R1*2*ir2 

102 IF A1*0 THEN IF I1>0 THEN T*1.5707963NC0T0 110 

10* IF RIsO THEN IF I1<0 THEN T*-1.5707963\GOTO 110 

105 Atl1/R1SG0SUB 500 

110 RsR9”(N/2>*C0S(N*T) 

112 I*R9*(N/2)«SIM(N«T) 

115 !"POWER :REAL * ".A,"; IMAG. t -.1 
120 I\G0T0 10 

200 INPUT "STATE RADICAND :A1,I1 AND EXPONENT :N ".R1.I1.N 

201 R9*A1“2*11"2 

202 IF R1*0 THEN IF I1>0 THEN T*1.5707963V0OTO 20o 

20* IF 81.0 THEN IF IUO THEN Ts-1.57,*79b3\GOTO 20S 

205 A.II/RUGOSUb 500 

208 R8*R9*<1/2/N) 

210 R.R8*C0S(T/N)MiRS*STN(T/N) 

215 1-PRINCIPAL ROOT :REAL . ".H,’; IMAG. . ",I 
220 IF 1NT(NX>N THEN ISCOTO 10 
222 P«3.1*15927 
225 FOR J.1 TO N-1 

230 RsR8*C0S((T*2*P*J)/N)\I.R8 # SIN((T*2 , P*J)/H) 

235 I"ADDITIONAL HOOTS :REAL = -,R,“i IMAG. * ",I 

2*0 LEXT 

2*5 !\GGTO 10 

500 <*57.2*‘>-rtO*\S*SG:. (A )\Y1»Ai-S(A)\X1* 1\iii «■<:>/< 

502 ' «0 

•Oj KOP U.1 TO 10\G(U)*0\NtXT 
505 H*M*1 

510 T2*SIN(02)/C0S(02) 

515 X2.X1.ri»T2\Y2*Y1-X1»T2 

520 IF M.6 THEN 0(6)*1\G0T0 550 

525 IF Y2<0 THEN 02*02/1,nC0T0 505 

530 0(M)»0(M)*1 

535 Xl*X2\Y1*Y2\COTO 515 

550 H5*K*Y2/X2\0*R5 

555 FOR J.l TO M\01.*50/(10‘J)*0(J)\0*0*01 
560 NEXT 

565 T=0»S/K 

566 REM TO MOVE ANGLES INTO 2ND A 3RD QUADRANT IF KUO 
566 IF R1<0 THEN T»T*3.1-15927 

570 RETURN 


>>»UN 

STATE PRODUCT. QUOTIENT, PO.fcn, OR ROOT i PR.Q.P.N :PR 
STATE FACTORS :H1,I1,R2,I2 :1.2.3.* 

PRODUCT s REAL » *5i IMAG. • 10 

STATE PRODUCT. QUOTIENT, POWER, OR ROOT : PR,Q,P,R :Q 
STATE NUMERATOR : JM ,11 *5.10 AND DENOMINATOR :R2,I2 1.2 
QUOTIENT : REAL • 3i IMAG. * * 

STATE PRODUCT, QUOTIENT. POWER, OR ROOT : PR.Q.P.R :Q 
STATE NUMERATOR :R1,I1 -5.10 AND DENOMINATOR :R2,I2 3,« 

OUOT1ENT : REAL ■ 1| IMAG. • 2 

STATE PRODUCT, OUOTIENT, POWER, OR ROOT : PR,Q,P,R :P 
STATE BASE :N1,X1 AND EXPONENT :N 1,2,3 
POWER :REAL « -11; IMAG. • -2 

STATE PRODUCT, OUOTIENT, POWER, OR ROOT : PR.Q.P.R :H 
STATE RADICAND :R1,11 AND EXPONENT :N -11.-2.3 
PRINCIPAL HOOT :REAL > 1; IMAG. * 2 

ADDITIONAL ROOTS :REAL . -2.2320507: IMAG. * -.13397*9 

ADDITIONAL ROOTS :REAL * 1.2320511; IMAG. * -1.6660252 

STATE PRODUCT, QUOTIENT, POWER, OR BOOT : PR.Q.P.R sP 
STATE BASE :R1,11 AND EXPONENT :N 30,*0.3 
POWER :REAL * -116999.99; IMAG. s **000.011 

STATE PRODUCT, QUOTIENT, POWER, OR ROOT : PR,Q,P,R sR 
STATE RADICAND tRI.II AND EXPONENT :N -116999.99.**000.011.3 
PRINCIPAL ROOT :REAL * 30; IMAG. * *0 

ADDITIONAL ROOTS :REAL « -*9.6*1015: IHAC. ■ 5.98076,15 

ADDITIONAL ROOTS :REAL * 19.6*1033: IMAG. ■ -*5.980755 

STATE PRODUCT, QUOTIENT, POWER, OR ROOT : PR.Q.P.R :P 
STATE BASE :R1,I1 AND EXPONENT :N 3,«,2.71 
POWER ;REAL * -63-397236; IMAG. s *6.090258 

STATE PRODUCT, OUOTIENT, POWER, OR ROOT : PR.Q.P.R :R 

STATE RADICAND :R1.11 AND EXPONENT :N -63-397236.*6.090258,2.71 

PRINCIPAL ROOT :REAL : 3; IMAG. * * 

STATE PRODUCT. OUOTIENT, POWER, OR ROOT : PR.Q.P.R :P 
STATE BASE rR1.I1 AND EXPONENT :N 1,2..25 
POWER :HEAL . 1.176301; IMAC. * .33*162*7 

STATE PRODUCT. QUOTIENT, POWER, ON ROOT : PR.Q.P.R :R 
STATE RADICAND :R1,I1 AND EXPONENT :N 1.2,* 

PRINCIPAL ROOT :REAL • 1.176301; IMAG. s .33*162*7 

ADDITIONAL ROOTS :REAL * -.33*1625; IMAC. » 1.176301 

ADDITIONAL ROOTS :REAL * -1.176301; IMAG. * -.33*16273 

ADDITIONAL ROOTS :REAL * .33*16273; IMAG. * -1.176301 

STATE PRODUCT. QUOTIENT, POWER, OR ROOT : PR.Q.P.R : 
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Complete Business System 

• ACCOUNTS PAYABLE $75.* 

• ACCOUNTS RECEIVABLE $75.* 

• GENERAL LEDGER $75.* 

A SMALL BUSINESS SYSTEM CAN MAKE 
A BIG DIFFERENCE 

Forms and Check Available 


PAYSOFT PAYROLL SYSTEM 

• FIELD PROVEN - Systems throughout the U.S. 

• SIMPLIFIED OPERATOR INTERFACE 

No training required 

Fast - minimal system operation time 

• AUTOMATED REPORTS 

Check writer/complete paystub 

Employee summary - company summary 

Check register 

Federal deposit record 

Quarterly & annual federal forms (optional) 

• EDITING FEATURES 

• BONUS PAY ENTRY FEATURE 

•END-USER DOCUMENTATION - End-user support 

•PAYSOFT DISKETTE AND MANUAL $125.* 

ANNUAL REVISION SUBSCRIPTION OPTIONAL 


♦California residents add 
6.5% sales tax 


BUSINESS 

UWUOWPRODUCTS 


A DIVISION OF THE READY CORPORATION 

P.O. Box 532 • Pleasanton, CA 94566 • (415) 443-4876 


TRS-80 is a registered 
trademark of Radio Shack 
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ACCOUNTS PAYABLE AND 
ACCOUNTS RECEIVABLE PACKAGE 


This month we’ll evaluate the Osborne & Associates programs, 
focusing on the Accounts Payable/Accounts Receivable package. 

The Osborne programs, written by Lon Poole and Mary Bor- 
chers, come in the form of a book which includes lots of diagrams, 
flow charts, operator’s tips and about 100 pages of program listings. 
The programs were written for a Wang computer and therefore 
utilize its unique form of BASIC. The authors realistically caution the 
reader that the programs should not be expected to be compatible to 
most machines, and that quite a bit of modification may be neces¬ 
sary. They are quite helpful in this regard, however, with a chapter 
devoted to the peculiarities of the Wang dialect. 

The warning the authors issue, though, should be taken to heart by 
all but experienced programmers. Regardless of the explicit docu¬ 
mentation, it will take one with some expertise in programming to wade 
through the pages of code and make all of the right changes. Don’t 
fool yourself into believing you can make all the changes and put 
the program up on the new TRS-80 you just bought last week. It 
probably won’t work, and will take weeks to debug. 

OVERALL 


The architecture of the overall system in the book is modular — to 
be expected and of course, needed in any microcomputer environ¬ 
ment. In other words, instead of one large program, the author’s sys¬ 
tem has a lot of little programs which are strung together and used to 
accomplish the tasks. 

The central feature of the whole set of programs is the menu, 
which serves as an outline to all of the other programs. An unusual 
feature of the programs is that they combine accounts payable with 
accounts receivable into one package. The instant accountant’s 
reaction will probably be confusion. After all, what does a receivable 
have in common with a payable? 

The answer is logical. The authors have conveniently, and in a 
manner which saves a lot of disk space, used common sub-routines 
and utility programs for both accounts payable processing and the 
accounts receivable system. There are 35 common sub-routines 
which are shared amongst 21 programs and sub-programs, which 
means that a lot of storage space is saved. 

There are 20 major programs in the system, utilizing 13 data files. 
Each of the files is nicely documented, with a number of options in 
file content left up to the user. All of the files are laid out in a hier¬ 
archical structure. 


WHAT THE SYSTEM DOES 

The accounts payable system in the Osborne book is a invoice- 
linked system, which means that everything revolves around the in¬ 
voice. This is common among computerized systems and makes for 
a logical organization. As the book points out, the program 
“features a flexible check calculation procedure which allows you to 
calculate checks in one of two ways:you can choose a set of vendors 
and it will pay all their invoices and apply all their credit memos 
automatically, or you can list a specific invoice or credit memo com¬ 
bination for payment for specific vendors.” 

The programs even contain a program for printing the checks on 
check forms, and of course, the user can obtain an open or closed 
item listing plus an aging. By the way, the aging can be on a 
30/60/90 day basis or any basis which is chosen by the user. And 
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COMPUTING, INC. announces! 

BUSINESS 

TRS-80 TRS-80 


INVENTORY 

MANAGEMENT 

• 600 Items/Diskette 
Up to 4 Diskettes 

• 3 Vendor Orders/Item 
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TRS-80 means business! ! ! 

...with CP/M, CBASIC2, 

& applications software. 

CP/M (“the software bus”) & CBASIC2 (the stan¬ 
dard for business software) bring new power and 
versatility to the TRS-80 for practical use. 


CP/M Operating System (w/Editor, Assembler, 

Debugger, Utilities & 6 manual set). 

CBASIC2 Compiler (w/manual) 
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to top it off, the programs maintain a vendor activity total. Provisions 
have been made to post not only to the general ledger accounts but 
also to jobs, a feature which will prove very useful for those 
businesses which have a job shop. 

The vendors on the accounts payable system are assigned a 
number, a feature which allows some fancy management informa¬ 
tion gathering. Some of the programs accumulate subtotals for 
groups of vendors. Thus it is possible, through judicious assignment 
of vendor numbers, to isolate activity by account or divisions. By us¬ 
ing a different subtotal group prefix for each division’s vendors, the 
spending patterns or various areas can be tracked. 

The programs which involve the production of checks have a nice 
feature: The authors have precluded the possibility of producing a 
negative check. (This possibility can occur in many systems if the 
vendor’s account has a negative balance.) 

SOME PROBLEMS 

While reviewing the programs, there appeared to be somewhat of 
a deficiency in the logic which is used to arrive at the check amount. 
Unfortunately, it’s related to the “no negative checks” feature. The 
programs instruct the computer to methodically add up what is in 
the vendor file and if a credit memo has been entered in a manner so 
as to create a negative balance, the program ignores the resulting 
negative balance when computing the total. For example, look at 
the following two cases, and the different check amounts which 
would result: 


$109 

invoice 

$109 

invoice 

200 

invoice 

200 

invoice 

-319 

credit memo 

50 

invoice 

50 

invoice 

-319 

credit memo 


Check calculated $50 Check calculated $40 

Note that in the first case, the programs added up $109 plus the 
$200 and then applied the $319. However, only $309 would be 
applied, so the $ 10 was left in the vendor file for future use. The pro¬ 


gram then added the $50 invoice, conveniently forgetting about the 
$10 credit which was lingering in the vendor file. This is a bit slop¬ 
py, and possibly could have been avoided with some sleight of hand 
programming finnesse. I must give the authors credit, though, for at 
least documenting the potential problem. 

Another little glitch in the system is the ability to write duplicate 
checks. This could result in some problems with the recording of the 
cash disbursements and might provide a thief with an unlimited 
source of funds. The businessman should keep in mind that the 
fraudulent employee can always find a way to double-endorse 
checks over to himself. If the business owner isn’t paying too much 
attention to the checks when he signs them, there is a real internal 
control weakness. 

THE UNFORGIVABLE SIN 

After studying the programs, I could find only one glaring, unfor¬ 
givable deficiency. Based upon what I saw in the book and confirmed 
through my discussions with one of the authors, it appears as 
though the accounts payable transaction listing does not give a detail 
of the complete coding of all the invoices. Although each invoice’s 
coding to the various accounts is shown, there is no summary of 
these amounts into one grand total, by account. 

Apparently the system was designed to post directly to the general 
ledger files, without any hard-copy backup to indicate what accounts 
are debited and credit. The information is available for each of the in¬ 
voices, on an individual basis, but no summary. Although the 
authors state that “audit trails” have been built into the system, one 
of the most basic of audit trails is apparently ignored. 

When I discussed this matter with the authors of the program, the 
reason for the lack of backup became apparent. In the original con¬ 
figuration, the accounts payable package was interfaced with the 
general ledger package, which has a program designed to produce 
a hard copy journal. It probably would have been a better design to 
have incorporated such a program as an integral part of the ac¬ 
counts payable system itself. 


Our MacroFloppy 



the distance. 


Introducing the Micropolis MacroFloppy™:1041 and :1042 disk drive sub¬ 
systems. For the S-100/8080/Z-80 bus. Packing 100% more capacity into a 
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controller. Interconnect cable. Micropolis BASIC User's Manual. A diskette con¬ 
taining Micropolis BASIC, and a compatible DOS with assembler and editor. 
The :1041 is even designed to be used either on your desk top, or to be inte¬ 
grated right into your S-100 chassis. 

The MacroFloppy:1042 comes with everything the :1041 has, and more. 
Such as d.c. regulators, its own line voltage power supply, and, to top it off, 
a striking cover. Making it look right at home just about anywhere. 

Both MacroFloppy systems are fully assembled, tested, burned-in, and 
tested again. For zero start-up pain, and long term reliability. They're also 
backed up by our famous Micropolis factory warranty. 

And both systems are priced just right. $695 for the MacroFloppy:1041 
and $795 for the MacroFloppy: 1042. 

You really couldn't ask for anything more. 

At Micropolis, we have more bytes in store for you. 

For a descriptive brochure, in the U.S. call or write Micropolis 
Corporation, 7959 Deering Avenue, Canoga Park, California 91304. Phone 
(213) 703-1121. 

Or better yet, see your local dealer. 
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The best of all possible systems, it would seem, should include the 
option of making several runs of the transaction register, where in¬ 
voices are first entered, to insure that the entry process is free from 
errors. Then when the data is deemed to be correct, the operator 
should “post it” to the accounts payable files and the system should 
simultaneously produce a final transaction register. This register 
should contain all of the invoice detail, plus an indication of which 
accounts are affected. At the end of the run, a summary of amounts, 
by general ledger account, should be given. The designers of the 
Osborne system overlooked this crucial step because, in their sys¬ 
tem, the general ledger accounts were, apparently, affected by each 
of the invoices, thus showing the detail in each of the affected ac¬ 
counts. While this is laudable, nonetheless, a summary should ap¬ 
pear on the final transaction run. 

RECEIVABLES 

The accounts receivable system is, like the payables system, 
organized around the invoice; it is the mirror image of the payable 
system. It should be pointed out that the design of the system is 
specifically for low-volume invoicing. Good planning went into the 
architecture of the system, with allowances made for the inputting of 
an invoice when it is ready for billing, after it has been billed and 
even after it has been paid. Partial payments on invoices are also in¬ 
cluded in the system. Provisions have been made for the production 
of customer statements and a number of management reports, in¬ 
cluding open invoices, aging analyses and the like. 

One point of misconception may arise with respect to the 
receivables system. It does not function as an invoicing system. In 
other words, it will not generate invoices itself — it only generates 
statements, from invoices which are, presumably, created manually. 

Just like the payables system, the first step in the receivables pro¬ 
cess is the entry of the invoices into the system. Entry of an invoice is 
different from the billing process, and this allows you to “run up a 
tab” for a customer. The system even allows you to enter progress 
payments before billing. There is a definite cycle of entering, listing, 
editing and correcting data which has been entered. Once data has 
been entered and has been listed (in a “transaction listing”) and 


edited, it can be posted to the accounts receivable files. Unlike the 
payables program, on the transaction register there is a beautiful lit¬ 
tle summary of the detail data in the form of a journal entry which 
would please any accountant. 

The basic output of the receivables program is the statement. The 
amount of data which is accounted for in the receivables files is im¬ 
pressive, and more than adequate to produce meaningful statments. 
Such information as type of sale, job number, descriptions, billing 
dates, tax codes, etc. are set up on the receivables files. The authors of 
the programs never apparently considered the problem of taxable and 
non-taxable items on the same invoice, however, since there are no 
provisions to handle this situation. The only way this problem can be 
circumvented is to enter each item individually. Another annoying 
feature is the inability to provide more than six spaces in which to de¬ 
scribe what you are billing the customer for. More businesses need 
somewhat more flexibility than that — in addition to the description, 
some form of stock number should be included in the system. 

OVERALL IMPRESSIONS 

The overall impression which one gets upon careful review of the 
Osborne programs is that, despite their occasional flaws they are, 
without a doubt, an outstanding effort at a computerized 
payables/receivables system. The documentation is superb, and the 
amount of explanatory data is sufficient. The authors’ concern with 
every aspect of the system is apparent. 

While there are a number of areas in which improvements could 
be made, that can be said of every program to one degree or 
another. The programs in the Osborne book appear to be an ex¬ 
cellent starting point for anyone wishing to design their own system, 
and should serve as an excellent benchmark by which to judge other 
systems. □ 

Carl Heintz and Bob Johnson will be alternating as authors of this 
column. Software vendors who are interested in having their pro¬ 
duct reviewed can contact Carl Heintz at 2540 Huntington Dr., 
San Marino , CA 91108. Bob Johnson can be contacted at 7228 
W. Reno St., Rt. 5, Oklahoma Cify, OK 73108. 


MetaFloppy goes 



The Micropolis MetaFloppy™ gives you more than four times the capacity of 
anyone else's 5K-inch floppy Because it uses 77 tracks instead of the usual 55. 

The field-proven MetaFloppy with thousands of units delivered, comes 
in a complete family of models. And, like our MacroFloppy™ family of disk 
drives, MetaFloppy is designed for the S-100/8080/Z-80 bus. 

For maximum capacity, choose our new MetaFloppy:1054 system. Which 
actually provides you with more than a million bytes of reliable on-line stor¬ 
age. For less money than you'd believe possible. 

The MetaFloppy:1054 comes complete with four drives in dual config¬ 
uration. A controller. Power supply. Chassis. Enclosure. All cabling. A new BASIC 
software package. And a DOS with assembler and editor. There's even a built- 
in Autoload ROM to eliminate tiresome button pushing. 

If that's more storage than you need right now, try our 
MetaFloppy:1055, with 650,000 bytes on-line. Or our Meta- 
Floppy:1045, with 515,000 bytes on-line. Either way, you can 
expand to over a million bytes on-line in easy stages, when you 
need to. Or want to. 

In other words, if your application keeps growing, we've got 
you covered. With MetaFloppy. 

The system that goes beyond the floppy. 

For a descriptive brochure, in the U.S. call or write Micropolis 
Corporation, 7959 Deering Avenue, Canoga Park, California 91504. 

Phone (215) 705-1121. 

Or better yet, see your local dealer. 
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ADDRESSING 


*T)gucJL lie. 

J DIGITAL/ JL 

RELIABILITY 
QUALITY 
DEPENDABILITY 


8K STATIC RAM 
ASSEMBLED 
S-100 


PROTECT 


ON-BOARD SWfTCH WRITE PROTECTSAJNPROTECTS ALL 8K 
OR EACH 4K BLOCK CAN BE PROTECTED VIA FRONT PANEL 


BUFFERING 


ALL S-100 BUS LINES ARE FULLY BUFFERED 
ONE LS-TTL LOAD PER UNE 


LOW POWER 


21L02 RAMS - THE 8KRS TYPICALLY REQUIRES 1 5 AMPS 
AT 8 VOLTS - 4 ON-BOARD 6 VOLT REGULATORS 


WAIT STATES 


0,1, OR 2 WATT STATES MAY BE SELECTED 
VIA A PLUGGABLE JUMPER 


QUALITY 

GUARANTEE 


THE BOARO IS GLASS EPOXY WITH SILK SCREEN LEGEND, 

FULL SOLDER MASKS ON BOTH SCES, FLOW SOLDERING, GOLD CONTACTS 

IF NOT SATISFIED RETURN THE UNDAMAGED 8KRS WITHIN 
10 DAYS FOR FULL REFUND - ALSO 90 DAY LIMITED WARRANTY 


DELIVERY 

PHANTOM 

TESTING 


STOCK TO 30 DAYS • CALL BETWEEN 8:30 AND 6:00 TO RESERVE 
YOUR 8KRS OR FOR MORE INFORMATION 

MEMORY DISABLE IS IMPLEMENTED VIA PHANTOM (PIN 67) 


COMPLETE TESTING NOT ONLY OF ALL MEMORY CELLS BUT ALSO 
OF ALL SUPPORT CIRCUITRY AND OPTIONS 


QPFPIAI SB"*"’" 

Ul LvInL ASSEMBLED/TESTED 


450 ns 250 ns 

$14915 $18915 


CALIFORNIA RESIDENTS ADD 6% TAX 


(714) 992-5540 
2555 E. CHAPMAN AVE. 
SUITE 604 

V FULLERTON, CA 92631 
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Terminal Systems is the one Name to Remember 

Whenever you think mini computers or data-communications 
Expert staff of Trained personnel to help Whatever your need 
Complete Lines of New and Used Equipment 

Terminal Systems Xnc. 
Sales • Service • Rentals 

(213) 769-6772 (714) 738-4444 

(415)573-7723 (800)423-2448 



Terminal Systems Xnc 


1UOO Hart land street, North Hollywood. California 91605 


INDUSTRY MEMQ__ 

Los Angeles area computer stores have been warned that unless 
they comply with a city ordinance requiring that all electrical devices 
sold in the city be certified for safety by either Underwriters Labora¬ 
tories or the city, they will be forced to quit selling microcomputers. 

Five stores inspected by the Los Angeles Department of Building 
and Safety early this year were found to be in violation of the ordi¬ 
nance. The fine for selling goods without the UL or local safety certi¬ 
fication is $500 or six months in jail. The stores will be inspected 
three times before complaints against violators are turned over to the 
district attorney for prosecution. 

Some store owners have taken the unauthorized equipment off 
their shelves. Others have decided to wait the city out, saying they 
would be forced out of business if they removed all the uncertified 
equipment, since very few microcomputer systems have the neces¬ 
sary labels. 

“If you had the choice between closing your doors or saying 
‘we’ve got lawyers, let them handle this,’ which would you 
choose?” Jim Collins, one of the principals of Computers Are Fun, 
said shortly after the inspection. 

Collins said that he planned to wait until the second inspection 
before deciding how to handle the matter. Computers Are Fun 
handles only one brand, Ohio Scientific, that carries the required 
certification, he said. 

“If you had the choice 
between closing your doors 
or saying "we’ve got lawyers, 
let them handle this/ which 
would you choose?” 

Collins and many of the other store owners feel that it is up to the 
manufacturers to supply the certification for their products. If and 
when the city gets strict about enforcing the ordinance, store owners 
will have to take the unregistered equipment off their shelves. 

“We’ll ask the manufacturers to get the authorization,” said 
Glenn Dollar of Rainbow Computing. “If Southern California is 
one-sixth of the computer market, they’ll have to do something 
about it to keep us.” 

Most of the manufacturers contacted after the rule city’s crack¬ 
down said they had applied with one of the agencies or planned to 
do so in the immediate future. The city will not prosecute companies 
that have certification pending. But if store owners are taken to court 
for violating the ordinance, the manufacturers of the illegal equip¬ 
ment are also charged, officials said. 

The cost of getting the labels varies. The city of Los Angeles 
charges by the number of hours actually spent doing the inspection 
of the equipment. Officials said that it generally takes four to six 
weeks to test the equipment. 

Authorization by the nationally recognized Underwriters Labora¬ 
tory costs considerably more, although a UL spokesman said the 
certification takes about the same amount of time. UL approval costs 
“from a few hundred to a few thousand dollars,” officials say. The 
price is determined by the difficulty of the testing. 

Although the UL label is seen on most appliances sold in depart¬ 
ment stores across the nation, officials say it is not unusual to find 
devices that do not carry the UL label. There are no nationwide laws 
requiring the certification, although many cities have ordinances like 
the Los Angeles law. 

For those manufacturers that get the approval by either Under¬ 
writers or the city of Los Angeles, a new market will open up. Many 
government agencies will not purchase equipment that does not 
have some type of safety certification. 

“The authorization helps not only from a legal standpoint, but 
also to get your product into schools, where they have requirements 
regarding the UL label,” said Brett Bullington of Processor Tech.□ 
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By Roger Garrett 
Northeastern Regional Editor 


A 3-D SYSTEM 

I have been doing some work recently with a Vector General 3-D 
color display system. This is a fairly sophisticated piece of hardware 
that does a lot of the tedious tasks such as axis translation (offset) and 
rotation, perspective cueing (shrinking parts of objects that are far 
from the viewer) and depth cueing (reducing the brightness of far 
objects). This all provides for very nice displays and it has been in¬ 
teresting working with it. 

But the Vector General does not address one of the basic prob¬ 
lems in graphics; that of hidden line removal. This is the problem 
that occurs when displaying, say, one box in front of another. 
Assuming that the boxes are solid figures, then some parts of the 
second box, and, indeed, even the back side of the first box should 
not be visible on the screen. 

The Vector General, which at best displays boxes as line figures, 
simply cannot handle this. The programmer has to take care of hid¬ 
den line removal via software. The solutions are generally very time 
consuming and defeat the purpose of having high speed display 
generator hardware like the Vector General. 

Well, I’ve thought of a solution. 



FIGURE ONE 

First of all we will use a raster scan CRT display. This way we can 
visualize our graphic picture as being comprised of individually ad¬ 
dressable dots on the CRT. Each such dot is actually a pixel. Let’s 
assume it is a matrix of 1024 pixels high by 1024 pixels wide (that’s 
a total of 1,048,576 pixels). Each pixel can vary in brightness from 
maximum brightness to completely off, with fourteen shades in be¬ 
tween. It can be any of sixteen different colors. In order to represent 
the status of any particular pixel we need eight bits (four bits for 
brightness and four bits for color). 

FIGURE TWO 

We set up a section of RAM memory with 1,048,576 bytes, one 
byte for each pixel, and build a display refresh unit which sequentially 


reads each byte from the display memory, translates It Into Intensity 
and color Information and displays the resulting pixel at the appro¬ 
priate spot on the CRT. 

Since each byte In display memory corresponds to (maps Into) a 
unique pixel on the CRT, we can display any picture by simply putting 
the appropriate Intensity and color values Into the appropriate bytes 
in the display memory. But that doesn’t solve the hidden line problem. 



FIGURE THREE 

Consider what we are trying to draw — a three-dimensional ob¬ 
ject. Yet our CRT is only two dimensonal. We can specify the X and 
Y coordinates of a point on the screen and this data is inherent in the 
position (address) of the bytes within the display memory (i.e. each 
byte corresponds to a unique X,Y coordinate). But how do we 
specify the third dimension? If we look at our CRT, we can think of 
this third dimension as being the Z axis which points from the front 
surface of the CRT towards the back of the CRT. That’s fine for con¬ 
ceptualizing it; how do we actually represent it? 

With another section of memory which we will call the depth 
value memory. Each word of this memory will correspond to one 
byte of display memory and will hold the depth value for the cor¬ 
responding pixel. Since the X and Y axis resolutions are each 1024, 
we will want the Z axis resolution to be 1024 also. So we need ten 
bits for each depth value word in the depth value memory. 

Now the display refresh unit is not connected to the depth value 
memory unit. So what is the depth value memory used for? 



FIGURE FOUR 

Let’s take a moment to consider what we are trying to display and 
how we might represent it in memory. Let’s assume we are going to 
display some set of rectangular plates that are opaque (i.e. you can’t 
see through them) and that these plates may be positioned anywhere 
and at any angle in our viewing area. The plates may even intersect 
each other. We are considering only rectangular plates because it is 
easiest to visualize this way. This discussion holds true for any type 
of object we wish to display. 

We can represent any rectangle by specifying the X,Y and Z coor¬ 
dinates of any three of its corners along with its intensity (brightness) 
and color codes. There are other ways to represent it, but this will do 
just fine. We now set up some memory to hold the rectangle infor¬ 
mation, in the format shown, and we call this our object data 
memory. 
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Figure 4. 



FIGURE FIVE 

Next we need a device that will take the data for each rectangle 
represented in the object data memory, figure out what the cor¬ 
responding two-dimensional projection of the rectangle should look 
like, and set the appropriate bytes in the display memory so that the 
rectangle will be displayed on the CRT. Remember, when you have 
a three-dimensional object and represent it on a two-dimensional 
surface, such as the front of the CRT, the resultant picture is a pro- 
jection of the original object. Rectangles, unless they are perpen¬ 
dicular to the line of sight, will appear on the screen as shown on the 
CRT. It’s this object translation unit which performs the projections 
from 3-space to 2-space. 

Also note that it does not simply draw the edges of each rectangle. 
It fills in the rectangle with its specified color and brightness by deter¬ 
mining which bytes in the display memory correspond to points 
within the projected rectangle and appropriately setting those bytes 
to the correct intensity and color codes. 

There is a problem with this setup, however. Since the object 
translation unit displays the rectangles in the order in which they ap¬ 
pear in the object data memory it will be necessary for us to make 
sure that the data starts with the object that is farthest away and con¬ 
tinues sequentially to the object that is closest. As the object transla¬ 
tion unit displays each rectangle, the displayed rectangle might over¬ 
write data that already exists in display memory. 
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This means that an object that is far away might actually appear on 
the CRT in front of closer objects. The problem of determining 
which objects are closer or farther away and putting them in the cor¬ 
rect order in object data memory is the problem we are trying to 
solve. We don’t want to take the time to do this; we want to simply 
put our object data into object data memory in any order and have it 
displayed properly. Also, sorting them by closeness doesn’t work 
when some objects intersect others. 

FIGURE SIX 

We now add a depth processor unit to the system in between the 
object translation unit and display memory and also connect it to the 
depth value memory. As the object translation unit processes each 
object it sends packets of information to the depth processor unit. 
Each packet tells which byte in display memory should be accessed 
and what its color and intensity should be and how far that displayed 
point is from the front of the CRT, i.e. what the depth value of that 
pixel is. 

As the depth processor gets a packet, it first accesses the word in 
depth value memory that corresponds to the pixel that the packet is 
referencing. The value it gets from the depth value memory tells 
what the depth value is for the pixel that is already being displayed at 
the referenced point on the CRT. If the depth processor determines 
that the pixel described in the packet is closer to the front of the 
screen than the pixel already in display memory, it puts the packet’s 
intensity and color data into the appropriate byte in display memory 
and puts the packet’s depth value into the appropriate word in the 
depth value memory (i.e. it overwrites the existing data for the 
referenced pixel). If the packet’s depth data indicates that it is behind 
the existing pixel, then the packet is ignored. 

Believe it or not, that’s it. You can put data into object data 
memory and everything will get displayed properly. Rather than 
operating on the data in an object-by-object basis, which is difficult 
and extremely time-consuming, we do it on a pixel-by-pixel basis 
which is simple and quick and can easily be done in hardware. 

FIGURE SEVEN 

Let’s review what we have by following the data flow through our 
machine. We have a computer with a program that is generating ob¬ 


ject data in the form of rectangular plane information. This data is 
stored in no particular order (but in a known format) in the object 
data memory which, by the way, could easily be part of the com¬ 
puter’s main memory. 

The object translation unit picks up the data from the object data 
memory one rectangle at a time. It determines what the projected 
two-dimensional object for each rectangle should look like and 
which pixels must be accessed in order to display the image. It deter¬ 
mines the depth value of each such pixel, based upon the size and 
orientation of the rectangle, forms pixel packets for each pixel (made 
up of the depth value, intensity and color codes, and two- 
dimensional coordinates), and sends the pixel packets one at a time 
to the depth processor unit. This unit takes each pixel packet, deter¬ 
mines the depth value of the pixel currently displayed at the specified 
point on the CRT (by accessing depth value memory). If the pixel 
packet indicates its pixel is in front of the currently displayed pixel, 
then the depth value from the pixel packet is overwritten into the ap¬ 
propriate word in the depth value memory. The intensity and color 
data from the pixel packet is overwritten into the display memory. 
The display refresh unit then takes the pixel data from display 
memory (one byte for every point on the CRT), converts it to analog 
data for the CRT, and the picture is displayed. 

A lot of work for the programmer? Of course not. All he has to do 
is write the program that generates the object data. Everything else is 
handled by the hardware to produce beautiful full-color three- 
dimensional projections. And the programmer doesn’t have to 
worry about what objects he generates first. They will all be dis¬ 
played correctly, even intersecting objects. 

ONE FINAL NOTE 

Display refresh is usually done thirty times a second with a short 
time between each refresh. In order to avoid flickering of the display 
it would be necessary to have the object translation unit and depth 
processor units complete their work between refreshes or, as an 
alternative, have a double-buffered display memory so the depth 
processor unit could be modifying one display memory while the 
display refresh unit is accessing the other. When this is done, your 
program could dynamically modify the contents of the object data 
memory, giving you a moving display.□ 


DID YOU KNOW 


Your local computer dealer can now supply you with a 


small business accounting software package that Works. 


• It’s the big Five.* It’s fully documented. 

• It’s CBASIC code.* It’s reasonably priced. 

• It’s customized to your needs.* It’s integrated. 

• It’s old fashioned accounting. 

• It’s source code, (license) 

• It’s available NOW! /^//^\^\\ 
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If your dealer does not have BTC01, have him write or call National Software Exchange, 
Suite 113, 1000 Lake Saint Louis Blvd., Lake Saint Louis, MO 63367, 

Telephone (314)625 2400. 
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THE 
MIN 

REVOLUTION 

By Merl Miller 

Societies tend to develop both their technology and social institu¬ 
tions in a similar, parallel manner. This month I will give you an ex¬ 
ample of how this happens, comparing the histories of both 
machines and man. 

The earliest machines were open-loop. This means there is no 
feedback and everything is accomplished by “brute force.” A plow 
is a good example of an open-loop machine. 

The only real change in machines has been the development of 
the closed-loop machine, which means the machine relies partially 
upon feedback. The first closed-loop machine was probably James 
Watt’s stabilized feedback controller with a fly-ball governor. 

The next significant step in feedback control was probably the inven¬ 
tion of stabilized feedback amplifiers in radio circuits. These vacuum 
tube amplifiers were developed by Henry Black in about 1934. They 
ushered in the new era of modern closed-loop machines. Since 
then, a wide variety of these machines has been developed. 

Some examples are: servomechanisms, broadband operational 
amplifiers, missile guidance systems, process control systems, etc. 


For the purpose of our discussion, and strictly for simplification, I 
will refer to these machines as robots. 

The closed-loop machine, or robot, has a number of operational 
characteristics. First, it has a feedback loop. It reflects or, in other 
words, always compares what it gets with what it wants. It undertakes 
a negative process in its transactions and uses opposing forces to 
achieve its goal. 

Through the transition from the open-loop to closed-loop ma¬ 
chine, the machine has undergone a radical change of its “attitude,” 
or “philosophy” of operating. We could say this attitudinal revolu¬ 
tion^ for machines began in the 1930’s and its full potential is just 
starting to be realized. 

If we examine history we will see that a similar attitudinal revolu¬ 
tion has been occurring. During recent periods of modern history 
we have witnessed some significant changes in our social structure. 
Let’s start by examining political institutions. In early history the 
political institutions were often dictatorial, centralized and despotic. 
Leaders ruled by brute force with little or no concern for the people. 

As technology and society advanced it became increasingly difficult 
to maintain this system; so democratic forms of government began to 
emerge. These governments employ negotiative processes in their 
governance and allow opposing views in their process. They are 
sensitive to the needs of the people, much like a closed-loop system. 

Taking this one step further, let’s look at the change within industry. 
Early business and industrial organizations were often dominated, or 
solely controlled, by tycoons and moguls. These men were often ec¬ 
centric millionaires. In business, they were praised for their strong 
leadership. This leadership often meant they ruled by brute force. 

Modern business cannot function in this manner. Unions now dic¬ 
tate the workmen’s rights and consumer groups grow stronger every 
day. Information about the market, sales data, public reaction to 
various products and impact of public users are all feedback that 
monitor the conduct of the firm, much like a closed-loop machine. 

Are all of these structures changing from open-loop systems to 
closed-loop systems? Or does it just seem that way? □ 

’The term attitudinal revolution was coined by Dr. Wayne Chen, Dean of Engineering, 
University of Florida. Most of the ideas I am expressing here and next month comes 
from conversations with Dr. Chen and from a paper he prepared for a proposed book. 
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BUSINESS EDITORIAL 


By James Merritt 

This article describes some of the strong points and the shortcom¬ 
ings of PASCAL, along with providing details about industry support 
for the new language. To respond to growing interest in PASCAL, 
INTERFACE AGE wilb begin a tutorial on the subject next month. 

PASCAL IS HERE TO STAY 

There are many, including a growing number of microcomputer 
manufacturers, who believe that PASCAL is one of the finest pro¬ 
gramming languages available today, and certainly deserves more 
than a cursory glance. 

PASCAL is being added to the computer science curriculums of 
more and more colleges and universities all the time. Many of these 
institutions now teach PASCAL in introductory programming courses 
in addition to, and sometimes instead of BASIC or FORTRAN. 

This academic acceptance is not a liability to PASCAL any more 
than it was for BASIC. Both PASCAL and BASIC were designed to 
be “teaching languages,” intended to facilitate the education of 
computer science students while providing a convenient vehicle for 
laboratory assignments in programming. 

But in contrast to BASIC, PASCAL was invested with consider¬ 
able power at the start, along with a very regular grammar and 
vocabulary which makes it easy to explain and teach the use of even 
its most advanced features. The student of BASIC can “outgrow” 
the language in very short order. Anyone who has attempted to write 
a BASIC program of more than a hundred lines or so has probably 
experienced some of these “growing pains.” Because of the simplicity 
of its design, PASCAL is suitable as a vehicle for introductory courses. 
However, due to its intrinsic power and affinity for large programs, 
PASCAL is also a facile tool for highly-advanced students and pro¬ 
fessional programmers. Therefore, it is no wonder that colleges and 
universities have embraced PASCAL in the 70’s in much the same 
way as they welcomed BASIC in the 60’s. Each, in its own time, has 
represented a positive breakthrough in computer education. 

Colleges and universities are turning out more and more 
PASCAL programmers with every graduating class. Eventually, 
these individuals will exert enough pressure on the industry until 
PASCAL achieves the undeniable “respectability” which many im¬ 
ply BASIC has. Indeed, this process has already begun. Texas 
Instruments and Harris Data Communications, two giants in the in¬ 
dustry, have demonstrated strong commitment to the language. 
Each uses PASCAL to develop software for internal use, and Tl has 
even released a PASCAL compiler for its minicomputer line. Bur¬ 
roughs, another “big name,” has begun placing want ads for 
systems programmers who will be responsible for developing 
PASCAL compilers, as well as language processors for “PASCAL- 
like” languages. The U.S. Department of Defense, the primary 
, force behind the establishment of COBOL as a major programming 
language, is implementing a PASCAL-based language with which 
to standardize all internal system software. 

In the beginning of the microcomputer industry, customers con¬ 
sidered themselves lucky to have BASIC as a high-level language. 
Conventional wisdom held that small computers were, of necessity, 
limited devices, barely capable of running cost-efficient implementa¬ 
tions of BASIC, much less any of the more advanced languages. 
Those who challenged that viewpoint were referred to the high-level 
language PL/M, developed by Intel for the 8080 and other micro¬ 
processors. Although powerful and convenient for writing pro¬ 
grams, Intel’s implementation of PL/M is not cost-effective for hob¬ 
byist or business applications because the compiler requires Intel’s 
very expensive program development system as its environment. 
Until recent price drops in RAM and disk-storage devices, only a 
very few could afford just the hardware to support PL/M, not to 
mention the operating system software as well. 

Observing the failure of PL/M to make inroads into the personal 
computing market, those who knew about PASCAL kept a low pro¬ 
file, either adhering to the line that PASCAL would be too com¬ 
plicated to implement for a micro, or believing that a successful im¬ 
plementation, while possible, would be too costly for the micro- 
computerist to afford until hardware prices went down. With hind¬ 
sight, it is clear that this “wait and see” attitude, while fiscally 
responsible, only impeded the development of PASCAL, and served 


to strengthen the “chains” of popular attitude which bound micro¬ 
computers to BASIC. 

Fortunately, some farsighted individuals, among them Dr. Ken¬ 
neth L. Bowles of the University of California, San Diego, grew tired 
of hearing that it “couldn’t be done,” and acted instead to summon 
the future. Bowles and his group, in particular, achieved the previous¬ 
ly unthinkable: simultaneous, practically identical implementations 
of “UCSD PASCAL” for a number of different microprocessors, 
such as the LSI-11,6502, AM-100, TI-9900, and the 8080/8085/ 
Z-80 family. In the space of a few short months, PASCAL for micros 
went from being a pipedream to a full-blown reality. Predictably, 
word of mouth carried the news to every part of the small-computer 
sphere, and the interest in PASCAL was ignited. It continues to in¬ 
crease today. Several major microcomputer manufacturers, in¬ 
cluding North Star Computers of Berkeley and Alpha Micro 
Systems of Irvine, California already support UCSD PASCAL. 

Nobody should be rushed into choosing PASCAL as a program¬ 
ming language solely through fear of being “left behind.” There is 
no question that BASIC will continue to be a major force in applica¬ 
tions programming for small systems, if only because of the vast 
amount of software which has already been written in BASIC. Many 
commercial BASIC software packages are inexpensive, well-written, 
and eminently usable in the various applications areas they were de¬ 
signed to address. If you are already committed to a large amount of 
BASIC software, switching to PASCAL at this point can be an un¬ 
wise move, since all of that software will probably have to be re¬ 
written. For those in such situations, the old rule “don’t change 
horses in midstream” makes a lot of sense. 

On the other hand, if you are about to design and write a software 
system from scratch, or if your present software (in whatever lan¬ 
guage) is too limited to meet your present or future needs and you 
are considering a major system-rewrite and overhaul, 1 feel that you 
should seriously consider using PASCAL as your applications lan¬ 
guage. It has these advantages over BASIC: 

• PASCAL source programs are COMPILED into memory-effi¬ 
cient, fast-executing object programs. Some compilers gener¬ 
ate actual machine-code which may be executed directly by a 
microprocessor. The University of California at San Diego 
compiler generates “P-code.” This is “machine-code” for a 
hypothetical processor called the “p-machine.” The 
p-machine’s advanced, stack-oriented architecture is ideally 
suited for executing PASCAL programs. The machine itself is 
simulated by a program written in the native machine-code of 
the host processor. The simulator executed the compiled 
p-code version of the PASCAL program. Even though p-code 
programs execute around 10 times slower when under simu¬ 
lator control than programs which are compiled directly into 
native code, this is still 5-12 times faster than equivalent pro¬ 
grams written in most extended BASICs. 

• In systems which use a p-machine simulator to execute the 
p-code emitted by the compiler, the simulator program itself is 
much smaller than the typical BASIC interpreter. UCSD’s 
p-machine simulator, for example, requires only about 9K 
bytes of RAM at run-time, and will support compiled PASCAL 
programs which perform sophisticated disk-access, multiple- 
device I/O, string-manipulation, and other advanced computa¬ 
tions. BASIC interpreters which allow similar programming 
power require anywhere from 12K to 16K of run-time RAM. 

• Because of its superior program-structuring facilities, PASCAL 
makes it very easy to write large, complex programs as well as 
small ones. PASCAL promotes the breaking up of a complex 
task into smaller subtasks for which new PASCAL statements 
(procedures) and functions may be defined by the programmer. 

• PASCAL variables may be given long, descriptive names so 
that the readability of the program and clarity of its intent are 
improved. This contrasts with BASIC’s convention of using 
only single letters or single letters followed by single digits as 
variable names. Several implementors of modern dialects of 
BASIC has realized the value of long variable names in pro¬ 
grams, and so permit them to be used. PASCAL has included 
this feature right from the start. 
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• At the programmer’s option, variables may either be global or 
local to a given procedure or function. Global variables may be 
accessed at any point in the program. A change in a global 
variable at one point affects its value permanently for all other 
parts of the program. (In general, all variables in a BASIC pro¬ 
gram are global.) Local variables, however, exist only as long 
as the procedure or function which uses them is executing. 
Changes in local variables do not affect data used elsewhere in 
the program. Each time a procedure or function which uses 
local variables is called, a new set of local variables is created 
for its use. This particular characteristic of PASCAL permits the 
programmer to define recursive program segments — proce¬ 
dures and functions which call themselves in order to perform 
a given task or compute a certain value. 

• To enhance program readability, constants may be given de¬ 
scriptive names. These names will be treated as synonyms for 
the declared constant value. For example, after the declaration 

const pi = 3.14159 

the name “pi” will be treated as if it actually is the number 
3.14159 every time it occurs in the program text. Note that a 
constant is not a variable. In particular, no variable space is 
assigned to a constant name by the compiler — constant 
names are synonyms only. Readability is also promoted when 
comments are used in the program text. BASIC requires com¬ 
ments to be placed in special, separate REM statements. 
PASCAL allows the programmer to insert comments at any 
point in the text where a space may be used. (This does not ap¬ 
ply, of course, to spaces within quoted string constants!) 

Comments must be surrounded either by the paid (* and *) 
or by the braces { and }. (Some implementations of PASCAL 
permit the use of both pairs, while others permit only one pair 
to denote comments.) Comments are ignored by the compiler, 
and do not transfer into the compiled object code. Thus, the 
programmer may comment a program liberally without affect¬ 
ing the size of the executable, compiled program. 

• PASCAL programs are written in “free format.” Line numbers 
are not required, as in most BASICs. Several statements may 
occur on one program line, or one long statement may con¬ 
tinue over several lines, as long as quoted strings, other con¬ 
stants, and procedure, function, and variable names are not 
broken between lines. (The end of a line is treated as a space by 
the PASCAL compiler.) Most programming teachers recom¬ 
mend the use of indentation as an aid to program clarity, and 
PASCAL permits this in program text. 

• Finally, PASCAL includes several advanced statements to con¬ 
trol program looping and conditional execution. These special 
statements help obviate the need to use the GOTO statement 
in a PASCAL program. In BASIC and some other languages, 
GOTO must be used often. The excessive and thoughtless use 
of GOTO frequently leads to “spaghetti” programs, where the 
flow of control is so contorted that a major job of analysis is 
necessary to understand, trace, and debug even “simple” pro¬ 
grams. PASCAL’S special statements implement clear, straight¬ 
forward control-flow, and help ease the analysis of a program’s 
behavior. In the statement descriptions below, a “statement” 
may be either a single PASCAL statement or procedure, or a 
compound statement. A compound is a group of several 
PASCAL statements which are enclosed by the PASCAL 
keywords BEGIN and END. Each separate statement within a 
compound is terminated with a semi-colon, except for the last, 
which comes just before, and is terminated by, the END keyword. 
Compound statements are treated as single units during execu¬ 
tion, much as expressions within parentheses are treated as single 
quantities when arithmetic expressions are evaluated. A control- 
flow statement, such as those below, may control a large pro¬ 
gram segment if this segment is expressed as a compound. 

LOOPING CONSTRUCTS 

WHILE condition (is true) DO statement 
REPEAT statement UNTIL condition (is true) 

FOR variable := initial value TO (DOWNTO) final value 
DO statement 


CONDITIONAL EXECUTION 
IF condition (is true) THEN statement (ELSE statement) 
CASE selector expression OF 
1st possible value: statement; 

2nd possible value: statement; 


last possible value: statement 
END; 

For the CASE statement, each of the possible values is a cons¬ 
tant of the same type as the selector expression. Depending 
upon the value of the selector expression when the CASE state¬ 
ment is executed, the statement associated with the matching 
“possible value” will be executed, and all others in the case list 
will be ignored. Consider the statement: 

CASE ch OF 

‘A’: WRITELN(‘First case’); 

‘B’: WRITELN(‘Second case’); 

‘C’: WRITELN(‘Third case’) 

END; 

If ch is a variable of type char, and the value it contains is ‘B’ 
when the above statement is executed, the following output will 
be produced: 

Second case 

BRANCHING - THE GOTO 

PASCAL’S GOTO statement takes the following form: 

GOTO numeric label 

It causes an immediate branch to the first statement which oc¬ 
curs following the specified numeric label. Labels may be 
thought of as “line numbers,” but are only required for a given 
statement in a program if it is desired to use a GOTO to transfer 
execution to that statement during program execution. The 
following program segment, when executed, results in an 
endless loop of greetings sent to the main terminal: 

1: writeln(‘HI THERE’); 
goto 1; 

It is recommended that GOTO be employed only when use of 
the other statements would tend to obscure the meaning of a 
program rather than clarify it, or when it is necessary to jump to 
some remote part of the program (for example, in response to a 
detected error condition in program input for which special cor¬ 
rective action must be taken). 

Note that a statement such as BASIC’s GOSUB is not neces¬ 
sary, since procedures are called by name, and the occurrence 
of a procedure name in a program is sufficient to call it. 

All of these features, and more for which there’s not space to ex¬ 
amine, combine to make PASCAL a very efficient language in 
which to write programs. As a special bonus, PASCAL programs 
can be made very readable, if care is taken to use descriptive names 
for variables, procedures, functions, etc. To illustrate, one may com¬ 
bine the “polygon” procedure and “AnswerTo” function with a 
REPEAT statement, a suitably-named variable, and a new pro¬ 
cedure, “AddOneTo(number)” to yield the following PASCAL pro¬ 
gram segment: 

CurrentNumberOfSides := 2; 

repeat 

AddOneT o(Cu rrentN umberOfSides); 
DrawRegularPolygonHaving(CurrentNumberOfSides) 
until AnswerTo(‘Do you want to see more?’) = No 


MAY 1979 


INTERFACE AGE 53 









Contrast this with its closest “standard BASIC” counterpart: 

10 S = 2 
20 S=S+1 
30 GOSUB 1000 

40 PRINT “Do you want to see more”; 

50 INPUT A$ 

50 IF A$ <> “NO” THEN 20 

Neither segment is commented. Although comments are allowed in 
PASCAL, the listing above probably doesn’t need them to be under¬ 
stood. On the other hand, the BASIC routine is very cryptic when 
no REMs are included to explain the purpose and function of the 
routine. 

It should be noted that the special procedure “AddOneTo” is 
merely a concession to readability. That line could be replaced with: 

CurrentNumberOfSides : = CurrentNumberOfSides + 1; 

Indeed, this assignment statement may be used to define the “Add¬ 
OneTo” procedure. However, lines such as this and line 20 in the 
BASIC example above are often confusing to beginners, whereas 
“AddOneTo(CurrentNumberOfSides)” is likely to be quite clear. 

Opponents are correct in stating that “there is nothing you can do 
in PASCAL that you can’t do in BASIC.” However, they fail to men¬ 
tion that if you program in PASCAL, the listing can be much easier 
to read, the resulting compiled program will execute faster (and, as a 
bonus, is also in a form which is hard to plagiarize), and that the in¬ 
creased power and bias toward program modularity which is built in¬ 
to PASCAL will help you finish writing and debugging your pro¬ 
gram much faster, on the average (especially for large programs), 
than the BASIC coder who attempts an equivalent program. 

SOME DRAWBACKS 

Today, “standard PASCAL” is accepted as being defined in the 
PASCAL User Manual and Report (N. Wirth, K. Kensen; Springer- 
Verlag: 1974). This language, upon which most existing PASCAL 
implementations are based, does not permit easy access to and 
manipulation of string data. Strings are defined as “packed arrays of 
char”, but there are no procedures or functions for accessing sub¬ 
strings, searching for substring inclusion, concatenating strings, or 
determining the length of a string. While “standard PASCAL” in¬ 
cludes most of the usual arithmetic operators, it doesn’t support ex¬ 
ponentiation. (The programmer may, however, write a procedure or 
function to achieve this. Indeed, the design philosophy of PASCAL 
was to provide a compact, spare language from which more com¬ 
plicated tools, such as exponentiation functions, could easily be 
built.) Random-access data files are not part of Jensen-Wirth 
PASCAL, not is interfacing to machine-language subroutines. 
“Standard PASCAL” has no pseudo-random number generating 
function. GOTO labels, when used, must be integer numbers — this 
is no better than BASIC (although it is perhaps a reasonable restric¬ 
tion, because GOTO and statement labels are needed so infrequent¬ 
ly when writing PASCAL programs). 

Most industrial implementations of PASCAL include extensions 
designed to solve most of these problems. For example, UCSD’s 
version permits full string manipulation, a built-in function to substi¬ 
tute for the exponentiation operator, provisions for random-access of 
data files, and interface-linking between PASCAL object code and 
machine-language routines. PASCAL standards committees, in¬ 
cluding the group set up by the International Standards Organiza¬ 
tion (ISO) are now at work, formulating a new official standard 
PASCAL which will address the problems mentioned above as well 
as many others, and will probably validate the necessary extensions 
which industrial implementors have seen fit to make. 

PASCAL software designed to exploit the inherent portability of 
PASCAL programs in general and that of those written in UCSD 
PASCAL in particular, is being written at this time by many con¬ 
cerns. Very soon, a reasonable variety of applications software will 
be available for PASCAL systems, and it will not longer be 
necessary to program PASCAL applications “from scratch.” 


Here are some sources for further information: 

International PASCAL Users’ Group 
Attention: Andy Mickel 
University Computer Center: 227 EX 
University of Minnesota 
208 SE Union Street 
Minneapolis, MN 55455 

Institute for Information Systems 

Attention: Dr. Kenneth L. Bowles 

Mail Code C-021 

University of California 

La Jolla, CA 92093 

Phone (714) 452-4526 

(For information about UCSD PASCAL) 

Manufacturers supporting PASCAL at this time: 

Alpha Micro Systems 
17881 Sky Park North 
Irvine, CA 92714 
Phone (714) 957-1404 

Altos Computer Systems 
2378B Walsh Avenue 
Santa Clara, CA 95050 
Phone (408) 244-5766 

Apple Computer 
10260 Bandley Drive 
Cupertino, CA 95014 
Phone (408) 996-1010 

Marinchip Systems 
16 Saint Jude Road 
Mill Valley, CA 
Phone (415) 383-1545 

North Star Computers 
Attn: PASCAL Working Group 
2547 Ninth Street 
Berkeley, CA 94710 
Phone (415) 549-0858 

Northwest Microcomputer Systems 
121 East Eleventh 
Eugene, OR 97401 
Phone (503) 485-0626 

Western Digital 
3218 Redhill Avenue 
Box 2180 

Newport Beach, CA 92663 
Phone (714) 557-3550 

□ 


BUSINESS EDITORIALS INVITED 

The business editorial page is open to all businessmen and 
manufacturers who want to express their opinion on topics of 
concern in the microcomputer industry. 

Editorials should not exceed six typewritten, double-spaced 
pages. All articles intended for publication in this section 
should be addressed to Carl Warren, Editor-in-Chief, INTER¬ 
FACE AGE Magazine, P.O. Box 1234. Cerritos, CA 92701. 

Opinions offered in the business editorial are those of the 
author, and do not necessarily reflect views held by INTER¬ 
FACE AGE Magazine or its staff. 
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PHOTO 1 President and CEO Evern Wall wanted a 
tool that would provide a one-on-one relationship 
between his company and the customer. 


Using online CRTs, customer service reps at El Paso Elec¬ 
tric can answer customer inquiries on the spot. With the help 
of a computerized information system, it takes two seconds 
or less to retrieve customer account data on the tube. 

The Arab oil embargo did more than just quadruple the 
cost of oil and natural gas in this country. It made utility 
customers start examining their bills very carefully. People 
who previously never gave a second thought to current 
meter readings, kilowatt hours used, and billing rates sud¬ 
denly became very concerned with these details. Daily tele¬ 
phone calls to local power companies increased tenfold. 

“Before the winter of 1973,” says Evern Wall, president 
and chief executive officer of El Paso Electric Company, an 
investor-owned utility serving 170,000 customers in Texas 
and New Mexico, “our customer relations were calm. We 
had an average of 300 calls a day, with no particular com¬ 
plaints about the cost of electricity. But when the Arab oil 
embargo hit, the tremendous shortage of gas in the U.S. and 
the lack of refining facilities put tremendous pressure on all 
the utility companies. At EPE, we were forced to ask for the 
first rate increase in our 72-year history.” 


PHOTO 2 The only factor that limits the speed at 
which a customer can be served, says customer ser¬ 
vice manager Irene Wolfe, is how fast the service 
rep can talk. 


The increase was granted and went into effect in January, 
1975. Shortly after the next utility bills went out, customer 
calls jumped to 3,000 per day. The switchboard was inun¬ 
dated, customers were transferred from department to 
department and placed on hold, while service reps vied with 
each other for the ledgers they needed to answer questions 
about each account. It was a potentially disastrous situation, 
but EPE’s response to it has developed into an online com¬ 
puter system that today allows the customer service staff to 
answer account questions in seconds. 

The name of the system is CIS, the Customer Information 
System. A single database system, CIS contains total cus¬ 
tomer account information for the past 13-month period. 


By the IBM News Bureau 


EL PASO ELECTRIC 


CUSTOMER INQUIRIES 
ANSWERED 
-' SECONDS 
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It uses IBM’s DL/1 and CICS software 
packages to provide almost instant 
retrieval of this information at any of 
EPE’s video display terminals. Cus¬ 
tomer service reps at 45 terminals 
communicate directly with EPE’s cen¬ 
tral IBM 370/145 computer and pull 
answers about customer accounts in 
two seconds or less. 

By keying in the proper transaction 
codes, the rep can display billing rates 
and amounts, billing history, credit in¬ 
formation, merchandise information, 
money on deposit, area lamp data, or 
any adjustement information on the ter¬ 
minal screen. To explain a high bill 
amount, the rep may want to pull a 
one-year summary of the customer’s 
account. The summary data reflects the 
customer’s pattern of energy consump¬ 
tion and makes it easy to pinpoint 
seasonal fluctuations. 

In addition to answering customer in¬ 
quiries, the customer service rep can 
use the terminal to request a service 
order or meter check, update informa¬ 
tion on the account, or initiate ad¬ 
justments. Instructions for cut-ins and 
cut-outs, name or rate changes, new 
service, setting or pulling a meter, add¬ 
ing or refunding a deposit, etc., can all 
be keyed into the terminal by the same 
service rep. As a result, a customer can 
take care of all his business with one 
telephone call. 

“Speed is our greatest asset,” says 
Bill Bostic, senior vice president. “Be¬ 
ing able to respond quickly to our cus¬ 
tomer increases our productivity. That’s 
money in the bank to us, and it keeps 
our customers happy.” 

According to Bostic, under EPE’s old 
manual system, all customer calls went 
first to the central switchboard operator 
and were then distributed to the appro¬ 
priate departments. The customer often 
had to consult with several different de¬ 
partments before questions or requests 
could be resolved. For new service, 
customers had to talk to the service de¬ 
partment; for a complaint about a bill, 
they were transferred to the customer 
accounting department; to change in¬ 
formation on an account, they talked to 
customer service; and so on. 

In each department, the customer 
contact person would have to go and 
get one or more monthly ledgers, 
locate the appropriate account listing, 
look up the corresponding information 
on transaction cards, and call the 
customer back with the data. If the 
customer needed information from 
prior months — as was usually the case 
— the service rep would often have to 
go down to the basement to dig out the 
proper ledgers. When the rep called 
the customer back, the customer might 
have additional questions, and further 
research would be needed. The whole 
procedure could take four to five hours. 
“Call-backs doubled the time it took to 


handle the customer,” explains Bostic. 
“Research quadrupled it.” 

In the meantime, the number of cus¬ 
tomers and inquiries was growing. 
“Even by increasing the work force and 
adding new phones,” says Irene Wolfe, 
customer services manager, “it was 
physically impossible to handle the 
business by the method we were using. 
We were literally being buried by paper.” 

After handling the heavy, dusty 
ledgers, the customer service reps were 
in no frame of mind to speak courte¬ 
ously to utility customers. “The solu¬ 
tion,” says Bostic, “was to combine 
the information from all the customer 
contact areas and put it on a disk record 
that could be retrieved in total on the 
video terminal. When we accomplished 
this, we gave the service reps the tool 
they needed: complete information at 
their fingertips.” 

Today, a customer can place one 
phone call directly to EPE’s customer 
service department. A rotary line system 
will automatically give the call to the 
first available service rep. The rep can 
update account information, request 
service action, and initiate adjustments 
for the customer right at the terminal. 

Just before income tax time, when 
half the nation’s utility customers 
discover that they’ve thrown .their utility 
receipts away and rush to the phone to 
call their power companies, El Paso 
Electric no longer flinches. Almost at 
the punch of a button, an EPE service 
rep can give any customer a one-year 
summary of his account, including 
date, taxes paid, kilowatt hours used, 
and amount of billing. 

The efficiencies of CIS are due to its 
central database concept. “To me,” 
says Dean Jacobson, data processing 
manager, “the really big advantage is 
that there is no paperwork at all. We 
have eliminated keypunch errors and 
transcription problems altogether. The 
terminal operator, who is familiar with 
the information being entered on the 
tube, can visually verify the information 
on the screen while the customer is still 
on the phone. That information is im¬ 
mediately stored in a convenient loca¬ 
tion, so that if the customer needs to 
know what happened two to three weeks 
ago, or two to three months ago, the 
data is instantly accessible. There’s no 
chance of losing it or having to look for 
hours to find the pertinent information.” 

Bostic adds, “This database system 
has tremendous advantages in other 
areas as well. Now that we have made 
the investment in equipment and soft¬ 
ware, we can bring in other applica¬ 
tions — such as payroll, employee ser¬ 
vice records, inventory storage, and 
more — for minimal further cost. In that 
sense, CIS has just been the first step 
toward better management control and 
increased productivity for the company 
as a whole.”□ 


Anadex Domestic Representatives: 
Barnhill Two, Inc. 

Richardson, Texas 

(214) 231-2573 
Houston, Texas 

(713) 688-9971 
Austin, Texas 

(512) 451-0217 

Barnhill Three, Inc. 

Denver. Colorado 
(303) 750-1222 
Scottsdale, Arizona 
(602)947-7841 
Albuquerque, New Mexico 
(505)299-7658 
Salt Lake City. Utah 
(801)484-4496 

Basic Systems, Inc. 

Inglewood, California 

( 213 ) 673-4300 

San Diego, California 

(714) 279-9641 

Carter, McCormic & Perice, Inc. 

Farmington, Michigan 

(313) 477-7700 
Dayton, Ohio 

(513) 222-7700 
Cleveland. Ohio 
(216) 779-5100 
Monroeville, Pennsylvania 
(412)372-4415 

Currie, Peak & Frazier, Inc. 

Orlando, Florida 
(305)855-0843 
Huntsville, Alabama 

(205) 536-5650 
Greensboro, North Carolina 
(919)273-3040 

Rush S. Drake Associates, Inc. 

Seattle, Washington 

(206) 763-2755 
Portland, Oregon 
(503)224-3145 

Electronic Marketing Associates 

Rockville, Maryland 

(301)881-5300 

King of Prussia, Pennsylvania 

(215) 265-1600 

Pat Jenks Associates 

Hamden, Connecticut 
(203)281-0810 
Wakefield, Massachusetts 
(617) 246-1590 

Ossman Instruments, Inc. 

East Syracuse. New York 
(315)437-6666 
Rochester, New York 
(716)473-5720 
Vestal. New York 
(607) 785-9947 

Pivan Engineering Company 

Chicago. Illinois 
(312) 539-4838 
Saint Louis, Missouri 

(314) 567-3636 
Shawnee Mission, Kansas 
(913)722-1030 
Indianapolis, Indiana 
(317)253-1681 
Minneapolis, Minnesota 
(612)835-3060 
Brookfield, Wisconsin 

(414) 786-1940 
Cedar Rapids, Iowa 
(319)377-9434 

Jay Stone & Associates 

Los Altos. California 

(415) 948-4563 

Technical Marketing Associates 

Fort Lee, New Jersey 
(201)224-6911 
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The Anadex 80 Column Printer. 




First check 
the specs. 
Then check 
the price. 


ANADEX, INC. • 9825 DeSoto Avenue • Chatsworth, CA 91311 U.S.A. • Tel: 213/998-8010 • TWX 910-494-2761 

ANADEX, LTD. • Dorna House. Guildford Road • West End, Woking, Surrey GU24 9PW, England • Tel: Chobham (09905) 6333 • Telex: 858762 ANADEX G 


□ Check Convenience 

For operating ease, the 

DP-8000 accepts paper 
through the rear or bottom of 
the unit, provides pro¬ 
grammable Skip Over Perfo¬ 
ration control, and Out of 
Paper indication and logic 
signal. 

□ Check the low Price 

The best news is the price. 
A complete DP-8000 is unit- 
priced at under $1000, with 
substantial discounts in larger 
quantities. 

Once you’ve checked out 
the performance and price, 
we think you’ll agree that the 
DP-8000 is definitely worth 
checking into. 


A 


Our new 80-column dot 
matrix line printer-the 
DP-8000 - combines high 
performance and operating 
convenience with a low price 
that’s worth checking into. 

□ Check Performance 

The DP-8000 features a 

precision engineered, heavy 
duty printing mechanism that 
can print the complete 
96 ASCII character set, bi¬ 
directionally, at 84 LPM. 

□ Check the Interface 

Included at no extra cost, 
are two input connectors (see 
photo) that provide three basic 
ASCII com¬ 
patible inter¬ 
faces: EIA 
Std. RS232C, 
for inter¬ 
facing at up 
to 96000 
Baud with 
most mini¬ 
computers 

and modems; the 20/60 ma 
current drive mode required 
by Teletype® ASR33-35 
printers; and the parallel-bit, 


serial character synchronous 
Centronics compatible 
interface. 


The DP-8000 includes 12 
lines of internal FIFO buffer 
storage and can accept data 
continuously or in bursts. 
Optionally, increased buffer 
storage of 2048 characters 
can be supplied for CRT dump 
and similar applications. 

□ Check Printer Quality 

A 9 X 7 character font 
provides virtually 
half-dot resolution 
for clean crisp print 
quality on the 
original plus 
three copies. 


Precise paper 
positioning is 
ensured by a 
sprocket-feed paper advance, 
user-programmable Top of 
Form control, and up to 8 
vertical tab positions. 
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Payday is what it is all about. In comparison the term “pay¬ 
day” even makes a hearty “heigh-ho, Silver” seem dull. This 
program is designed to transform payday into a “heyday” for 
the underappreciated payroll clerk and introduce microcom¬ 
puter cost saving possibilities to the P&L bottom line. 

Few bookkeeping chores are as involved as payroll. Be¬ 
sides the manual calculations, constant record keeping, per¬ 
sonnel files, updating histories, check writing and a myriad of 
forms, plus the addition of local, state and federal taxes, pay¬ 
roll is a never-ending stomping ground for lots of concerned 
people. PAYDAY brings this merry-go-round of activity into a 
flexible format using MSI’s 6800 extended disk BASIC v 1.2. 

PREREQUISITES 

PAYDAY is designed around the following microcomputer 
system: 

1. An SWTPC or MSI 6800 computer 

2. 32K RAM, including the BASIC 

3. MSI extended disk BASIC v 1.2 

4. Single MSI FD-8 disk drive 

5. Lear-Siegier ADM-3A terminal 

6. 132 column printer 

A number of simple changes are possible. For example, 
PAYDAY can be adapted to MSI’s v 1.3 BASIC. One may 
wish to alter the program so single-form instead of continu¬ 
ous-form paychecks are printed. Actually any terminal, with 
or without cursor addressing, may be used. Only one pro¬ 
gram, CHEM, assumes cursor control. Other changes may 
be more difficult. For example, to use an 80 column printer, 
all the TAB settings must be changed. Although adapting the 
listings to SWTPC’s FLEX DOS and v 3.0 disk BASIC is 
possible, the authors do not have such listings. 

PAYDAY OVERVIEW 

PAYDAY is a full-functioning payroll system comprising 19 
program modules. The listings published here provide flexibil¬ 
ity, even though a number of unpublished program modules 
allow specialized applications for departmentalization, cost 
accounting, and even establishing a payroll service bureau. 
These additional applications are beyond the scope of this ar¬ 
ticle. More information may be obtained from the authors. 

PAYDAY handles 300 employees. Employee records may 
be added or deleted any time, and employee files are up¬ 
dated as necessary. Both employee lists and employee his¬ 
tories may be printed. This program calculates up to three pay 
periods for three types of pay situations. Federal tax files may 
be built. A number of deductions are allowed including the 
local and state taxes. Three main deductions as well as a 
single general deduction may be requested. Along with the 
payroll checks, PAYDAY responds with a number of reports. 
The payroll report consists of three registers and the neces¬ 
sary month-to-date, quarter-to-date and year-to-date reports. 

MSI SYSTEM OVERVIEW 

The MSI disk extended BASIC v 1.2 is one of the best 
business BASICs now available. One reason MSI BASIC is 
so valuable is because it supports true random access files. 
PAYDAY requires this random access ability because of 
massive files. Each employee is given two 1 28 byte sectors. 
The reason payroll files for 300 employees fit on a single 
8-inch floppy disk is because of compact use of BASIC 
module programming. 

The data files link together two files, PERFILE and EMPHST. 
PERFILE has the personnel information including name, ad¬ 
dress, rates of pay, deductions, etc. EMPHST maintains the 
current month-to-date, quarter-to-date and year-to-date infor¬ 
mation. In addition. PAYDAY uses three system files. 
MASTER and MASTE1 store, in part, the company’s name 
and address, federal and state tax ID numbers, the bank and 
its address and the current date. The current date is impor¬ 
tant. A sophisticated built-in control matches certain dates. 


Faulty date input locks check-writing capabilities. This helps 
confuse potential program tampering. The last system file, 
PAYCTL, includes federal and state tax rates and the federal 
tax tables. 

A few comments about the MSI BASIC. The SET com¬ 
mand randomly accesses specific employee records on the 
hard sectored disk. In addition, each program module uses 
the CHAIN command. CHAIN, in effect, calls forth the next 
program where it is loaded automatically into RAM. PAYDAY 
is a system of progressively chained programs. 

Some programmers may wonder about the way the data 
files are accessed. Note that each data file is accessed with a 
string. This is because the file initially may not contain a 
numeric variable, but MSI BASIC will easily handle string 
variables from a field statement. PAYDAY converts the string 
statement to a numeric variable through extensive MID$ and 
VAL functions. This technique may be of assistance to other 
MSI programmers. For additional background on the MSI 
system, see Mr. Billing’s “Full Function Mailing List Sys¬ 
tem,” INTERFACE AGE, May, 1978; p 56ff. 

INITIALIZATION 

There are several starting procedures necessary to run 
PAYDAY. Each disk should be prepared with the MSI BASIC 
v 1.2 residing as the first file following the DOS. This allows 
booting BASIC with the PROM bootstrap program. Because 
MAIN is CHAINED in regularly, it should be placed on the 
disk next. Now commence the file creation. 

Load and run TBLE to set up the federal tax tables. PAY¬ 
DAY uses the weekly, bi-weekly and monthly tax tables. 
Please maintain this order in actual application. Altering the 
order affects other program modules. Load and run CH10, 
entering the proper data requested. Then load and run 
CH11 answering the questions. Follow this with loading the 
running CHCF, entering the proper tax rates and limits. The 
last item, “value of 1 allow table 1 ” requests the amount of 1 
withholding allowance for the tax tables entered in the pro¬ 
gram TBLE. You may wish to refer to Circular E, Employ¬ 
er’s Tax Guide, page 3, or contact your local IRS office. 

The 2 data files, PERFILE and EMPHST, are entered and 
updated in normal day-to-day operation. The rest of the 
BASIC programs are entered from the master list. 

PAYDAY DOCUMENTATION 

PAYDAY is an interactive program requiring an operator’s 
input. The first program module called is START. Today’s 
date must now be entered into the program. This one key 
date, unless perfect, prevents the printing function. The next 
program CHAINED is MAIN. This documentation will 
follow the outline of programs presented in MENU. 


DO YOU WISH TO: 

1 ADD EMPLOYEES 

2 EDIT EXISTING EMPLOYEE RECORDS 

3 INITIATE PAYROLL RUN 

4 CONTINUE PAYROLL RUN 

5 PRINT A LISTING OF ALL EMPLOYEES 

6 PRINT W-;2 FORMS 

7 CHANGE EMPLOYEES HISTORY 

8 PRINT HISTORICAL REPORT 

9 BUILD F.I.T. WITHHOLDING TABLES 


SELECTION? Figure 1. 


1. Add Employees 

The chief item in this module to be aware of is that the city, 
state and zip code must be entered without commas. The 
operator is prompted for the pay-code. The program expects 
a “W” for wages or hourly personnel, “S” for salary and 
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“C” for commission. The pay rate must be corrected to the 
pay-code unit. For example, entering $1,000 for a monthly 
salaried employee using pay-code “W,” the paycheck would 
be printed at the rate of $1,000 per hour. 

The state tax rate expects a per-cent figure. PAYDAY has 
been built around the Arizona state tax system which is nor¬ 
mally 10% of the withheld federal tax. This rate may be 
varied as necessary. MAIN is CHAINED. 



PROGRESSIVE CHAINING SEQUENCE 


1 

ADD EMPLOYEES 

ADEM 

MAIN 

2 

EDIT EXISTING EMPLOYEE RECORDS 

CHEM 

MAIN 

3 

INITIATE PAYROLL RUN 

STRT 

PINP 

MAIN 

4 

CONTINUE PAYROLL RUN 

TAXS 

UPDT 

PCHK 

PWR1 

PWR2 

PWR4 

MAIN 

5 

PRINT LISTING OF ALL EMPLOYEES 

PREM 

MAIN 

6 

PRINT W-2 FORMS 

PW-2 

MAIN 

7 

CHANGE EMPLOYEE HISTORY 

CHHS 

MAIN 

8 

PRINT HISTORICAL REPORT 

HSTY 

MAIN 

9 

BUILD FIT W/H TABLES 

TBLE 

MAIN 


Figure 2. 



2. Edit Existing Employee Records 


This module allows modification of the information record¬ 
ed in ADEM. CHEM requests the current work status of the 
employee with “A” meaning active and “T” meaning ter¬ 
minated. Next, a request is made for the deduction calcula¬ 
tion code. Five codes are used: 0, 1,2, S and E. Code “0” 
is for weekly tax tables, ‘T’ for bi-weekly, “2” for monthly, 
“S” is special and “E” is a deducted amount. 

“S” means that a given percentage figure of the gross will 
be deducted. If no % sign exists in the field, the dollar 
amount is calculated and deducted. “E” requests that the 
deduction amount be entered directly. 

Note that lines 291-292 are not used for direct check 
calculation at this time. The data needed is provided from the 
PINP program module. Lines 295-296, however, are im¬ 
portant if bonus and/or expense reimbursement are to be 
utilized in the payroll calculation. The figures must be 
entered at this point. Once entered, the figures remain in ef¬ 
fect until zeroed out. 

3. Initiate Payroll Run 

This sequence is actually a number of progressively 
CHAINED modules. The first module to be CHAINED is 
STRT. 

STRT assumes 1 check is wasted by the traction printer. 
The program requests this check number. Next the current 


period ending date is requested and entered. This date is im¬ 
portant because this date is actually imprinted on the payroll 
checks. All dates entered previously are compared to this 
date. If this date fails to match the previous ones, no checks 
will be printed. This safeguard helps prevent more than one 
check being printed per employee for the same time period. 
The next prompt for hourly, salary or commission employees 
allows various payroll periods for each class to be paid. The 
PINT module is CHAINED. 

More information is requested for the hourly, salaried and 
commission employees. Based on the response, the pro¬ 
gram prompts for the amount of hours an hourly employee 
has worked per pay period. Care must be used to maintain 
the pay-rate for a given pay period. If the pay period is week¬ 
ly, the pay-rate is 40 hours. If the pay-period is bi-weekly, the 
pay-rate is 80 hours, etc. 

These pay period hours may be entered one of two ways. 
If the total hours for the pay period are already calculated, 
enter 4< T” for total hours. But to calculate the hours from a 
24-hour time card, enter “C\ This allows a brief subroutine 
to figure the punched times, calculate the total hours per 
time card and continue with the program. This time card 
calculation feature could save enough man-hours each year 
to probably pay for the hardware. 

If a salaried employee response is used, nothing need be 
entered. The proper information is carried within the files. 
The commission request asks that the actual dollar amount 
of the commission be entered. MAIN is now CHAINED. 

4. Continue Payroll Run 

This section requires a minimum amount of input. TAXS 
is CHAINED. At this point the proper taxes are figured from 
the tax tables. CHAIN UPDT. Here the operator is requested 
to erase year-to-date, quarter-to-date and month-to-date in¬ 
formation. If the operator answers “y es ” to year-to-date, 
everything is deleted. Likewise, quarter-to-date deletes 
month-to-date. Next PCHK is CHAINED. Here’s the proof 
of the pudding. This program prints the paychecks. It should 
be noted that other checks such as credit union checks, 
union dues, may be printed at this time. These programs are 
beyond the scope of this article even though the programs 
contain the necessary features for implementation. 

Three report/print programs are called. The first report, 
PWR1, prints the payroll register with the employee wage 
breakdown. PWR2’s register shows the deductions and net 
pay. PWR4 reports the paychecks printed with the check 
number. It should be noted that all columns are totaled at the 
end of each respective report. Next MAIN is CHAINED. 

5. Print A Listing of All Employees 

This section is self-explanatory. 

6. Print W-2 Forms 

This module is a little unique as it attempts to save printing 
expense by formatting your own W-2 forms. When PAYDAY 
was written, the W-2 format was correct. New IRS alterations 
may now be in effect. Refer to the IRS Employer’s Tax 
Guide, page 5, item #F for additional information, or contact 
local IRS offices for current policy. 

7. Change Employee’s History 

This program should seldom be used. This, in fact, is the 
most sensitive program in the listing. You may wish to re¬ 
move it to a separate disk or protect it with a password. This 
would help protect the data from unauthorized tampering. 

8. Print Historical Report 

Three reports may be called. These are employee totals for 
the month-to-date, quarter-to-date and year-to-date. This pro¬ 
gram will fill out the 941 federal quarterly report. PAYDAY, 
however, allows formatting the 941 to specific, state by state 
needs. 
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9. Build F.l.T. Withholding Tables 

The last PAYDAY module builds three sets of federal with¬ 
holding tables. It is important that these tables maintain cor¬ 
relation in the order they will be accessed by other programs. 
Reference to the Employer's Tax Guide, pages 4-5, will 
assist in building these withholding tables. 


Memory Usage 

NOTE: All references to number of bytes used by a program are cal¬ 
culated before the variables are assigned and therefore are on the 
low side. Some programs may have as much as 4,000 bytes added 
with the variables. All references include the size of MSI BASIC. 

Program 

No. Bytes 

TBLE 

13,734 

MAIN 

15,879 

INIT 

15,655 

A DEM 

17,103 

CHEM 

17,823 

CHHS 

17,220 

CHCF 

16,373 

PINP 

16,825 

START 

15,470 

TAXS 

17,307 

PREM 

17,502 

PWR1 

17,347 

PWR2 

17,509 

PWR4 

17,699 

PW-2 

18,269 

CH10 

16,660 

CH11 

16,820 

STRT 

15,994 

UPDT 

18,941 

PCHK 

19,406 

HSTY 

17,538 

Figure 3. 


PROGRAM OPERATION MANUAL 


Each module of the PAYDAY program is operated in the 
interactive mode. Each day these modules are used, start up 
by CHAINING START. This command will load and run a 
program which will set up the date parameters and then will 
CHAIN the MAIN program which prints out the MENU for 
further operations. 

The following instructions follow the MENU numbering 
system. 

1. ADD EMPLOYEES. This program allows up to 300 
employees. 

2. EDIT EXISTING EMPLOYEE RECORDS. This program 
allows changing data on an existing employee. One thing 
to remember is that if an item number called up for a 
change is found to be correct, it must be re-entered so it 
will be returned to the disk. 


$BASIC 


PWR3 

MAIN 


PW-2 

MASTER 

Data File 

HSTY 

MASTE1 

Data File 

INIT 

PERFIL 

Data File 

TBLE 

EMPHST 

Data File 

CHHS 

PAYTAB 

Data File 

CHCF 

PAYCTL 

Data File 

CHI 0 

PCHK 


CH11 

ADEM 



CHEM 



PINP 



START 



STRT 



TAXS 



UPDT 



PREM 



PWR1 



PWR2 

Figure 4. 



3. INITIATE PAYROLL RUN. Before this command is exe¬ 
cuted, all employees’ files must be up-to-date. Be sure 
that the rate of pay, the pay code, deduction amounts, 
etc. are all correct for this payroll period. This command 
brings up a series of programs that prepare the disk files 
for the printing sequence. The programs are interactive 
and will require operator input. The important item to re¬ 
member is that the starting date and the current payroll 
date must be the same. 

4. CONTINUE PAYROLL RUN. This series of programs 
figures the taxes and updates the cumulative records, 
then it prints the paychecks and several other payroll 
reports. 

5. PRINT A LISTING OF ALL EMPLOYEES. This module 
prints out a complete list of all employees in the payroll 
file. 

6. PRINT W-2 FORMS. This program generate a full set of 
W-2 forms for all employees. It requires only single ply 
continuous form paper. 

7. CHANGE EMPLOYEE’S HISTORY. This allows chang¬ 
ing or adding to an employee’s file. 

8. PRINT HISTORICAL REPORT. This program prints 
month-to-date, quarter-to-date and year-to-date reports 
on all employees. These reports are used to complete 
form 941 and various state forms. 

9. BUILD FIT. WITHHOLDING TABLES. This program 
builds through the entry, from Circular E of the federal 
tax forms, three of the pay periods of the F.I.T. with¬ 
holding tables. E] 
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PROGRAM 1 

001 Ci h'FM TF:LP BAS WRITTtN I F B '7 8 BY DAVL GARDNER 

iHi 'U REM PAYRULL INCOME FAX W/H I ABLE CREATION PROGRAM 

<>U2'-. STRlNu- 128 L f NF- -0 

()(>.'/ 0S-" " 

i)UJO HS-l KF T$< "OVtR M 4-uS, 1&)+Lthli( "BUT NOT 0VER"4-Ut, 40 ) +*0f- EXCESS OVER" 
0040 LS LI>TS< "SI 15"+GS, 17>+LEFTS< "-*183 *16 32 PLUS 23X"4-QS. 40) 

004i LS-LSi"-S115" 

U050 D i h US < 5). I < 15. 5). PS ( 4 ) 

0055 PS < O) - "SINGLE PERSON" 
no!;./ F$(l,)^"MARRlHi PERSON" 

0060 OPEN #11. MASTL) FOR INPUT 
0062 FIELD #11. AS-"1 19, BS-96. CS-40 

0064 GET Fin US (0)-’LEF TS < CS» 1*3) DS(2)-MlDS <CS, 14, 13) : US(4)- MlDS(CS, 27. 13) 





0066 huR X--0IU2 D*< X*2*l )-D*< X*2> NF X T X CLUSE#11 

oo/O FOR X-0 TO 5 D4(X)-Lii(X)+" PAYROLL PERIOD - "4-PS < < X/2-INT ( X/2 ) >*2> 
0080 NEXT X 

0090 OPEN #14, O PAYTAB FOR UPDAIE 
0093 FIELD #14, AS--10 

0100 PS( i )• LEFT*( " ''"4-iJS, 29)+LEFTS< "''"4-QS, 10) + "' s " 

Ol 10 PS ( 2 ) - LEF T * ( " V+US, 29) 4-LEFT S< "*"4-US, 10)4"*" 

0120 PS ( 3 ) - PS ( 2 ) PS ( 4 ) -- PS ( 2 ) 

O 1 30 7 C HRS 06) 

0100 > "WE ARE NOW GOING TO BUILD THE PAYROLL FIT W/HOLUING TABLES " 

0)60 ? "YOU WILL NFFD A CURRENT CIRCULAR E' " 

0170 ? "IT IS PRINTED AND DISTRIBUTED BY THE IRS ":PRINT 

0180? "DO YOU HAVE IT";:1NPUTA* IF ASO"YES" THEN ?"GET IT!*": GOTO 180 

0)90 ? C HRS(26 > 

0200 V " NOW FIND I HE TABLES FOR PERCENT AGE METHOD OF' WITHHOLDING " 

021O ? "DO YOU HAVE THEM";• INPUT AS 

02/0 IF LEFTS (AS, 1)0" Y" ?"K.EEP LOOKING'!'" GOTO 210 
0230 ? CHK'S ( 26 ) 

0240 ? " I WILL HOLD YOOR HANFj AND HELP YOU ALL I CAN, " 

0/30 ? "BUT IF YOU GIVE ME WRONG DATA AND DON'T CORRECT IT," 

0260 ? " THE SYSTEM WILL NOT CALCULATE FEDERAL AND STATE INCOME TAX" 

02/0 ? "WITHHOLDING CORRECTLY'" 

0280 ? "DO YOU UNDERSTAND";: INPUT AS 
0290 IF LEFTS<AS,1)<>"Y" GOTO 230 
0300 ? CHRS(26) 

0310 ? "I AM ONLY INTERESTED IN 3 NUMBERS FROM EACH LINE IN EACH TABLE " 

0320 ? 



0330 V " I ONLY NEED DATA FROM THE FOLLOWING TABLES ? 
0340 FOR I--0 TO 5:?DS<1) NEXT 1 

0330 ? " A LINE OF DATA FROM A TABLE SHOULD LOOK SIMILAR" 
0360 ? "TO T HE FOL l OWING ":?: "'HS ?LS 



03/0? :?:?:?"DOES IT"; INPUT AS IF LEFTS<AS,1)-"Y" THEN 420 
0380 ? "IF YOU ARE RIGHT, THE SYSTEM MAY REQUIRE MODIFICATION" 

0390 ? "BY A PROGRAMMER ":? 

0400 ? "ARE YOU SURE IT DOESN'T LOOK LIKE THAT"; INPUT AS 
0410 IF ASO"YES" THEN 330 

0413 ? "CALI PROGRAMMER !••";CHRS<7):GOTO 730 
0420 ? CHRS(26) 

0423 ? MS ?LS 

0430 FOR 1-1 TO 4:?PS(1):NEXT I 

0440 ? "CAN YOU GUESS WHICH 3 NUMBERS I NFIED FOR EACH LINE"; 

0430 INPUT AS:IF AS«"YES" GOTO 4/0 

0460 ? "PULL YOUR HEAD OUT AND OPEN YOUR EYES!!!!!"+CHRS<7) GOTO 423 
04/0 FOR Id TO 6 

0480 ? "WE WILL NOW BUILD THE FOLLOWING TABLE:?DS(1-1) 

0490 ? : ?"HOW MANY LINFIS OF DATA ARE IN THIS TABLE"; 

0300 INPUT A IF A-INT(A) THEN IF A>0 THEN IF A<16 THEN 320 

0310 ? "YOU EXCEEDED THE MAXIMUM # OF LINES, OR TYPED SOMETHING WRONG— 

0313 ? "TRY AGAIN":GOTO 490 

0320 ? "TYPE THE 3 NUMBERS FOR EACH LINE,LEFT TO RIGHT, »; 

0325 ? " WHEN ASKED FOR THE APPROPRIATE NUMBER (1,2, OR 3)" ? ? 


0280 INPUT "STATE W/H RATE IN %",A 

0283 DS—l EF T S(S I RS(A)4-OS,7) BS-BS+"0000000"+DS 

0290 BS^-BS4 "0000000"4XS4 "0000000" 

0300 CS="000000000000000000000" 

0310 INPUT "NUMBER OF EXEMPTIONS", A: CS-CS+LEFTS<STRS<A)+0S,2) 
0320 INPUT "OCCUPATIONAL RISK CATEGORY", A 
0323 CS-CS^LEFT S(SIRS(A) + " ",1) 

0330 CS—CS)-" 0000000000000000000000000 " 

0340 DS- "00000000000000000000000000000000000000000000000000" 
0330 DS-DS4-DS-*-" 00000" : ES^DS KS-^DS 
0360 REWRITE #12 REWRITE #13:GOTO 130 
0370 SET #11-1:GET #11: DS--MIDS (AS, 34 ) 

03/3 ES-~MIDS (AS, 4 3. 6) 

0384 QS- : l EFTS < STRS <C5) 4-OS, 6)4-ES DS-LEFTS (STRS (N1 )+0S, 3)4-DS 

0383 AS-LEF T S ( AS, 38) 4-QS i DS 

0388 REWRITE #11 

0390 Cl USE #11, #12, #13 

0400 CHAIN MAIN 


PROGRAM 3 

0010 REM CHCF BAS WRITTEN 3/15/78 BY DAVE GARDNER 
0020 STRI Nil-* 128 LI Nfc^OO "*CHRS (26) DIM DS ( 12 ) 

0022 0S-" 

0023 0S^0S40S 

0030 DATA "00100/FUTA TAX RATE" 

0040 DATA "008014SU7A TAX RATE" 

0030 DATA "015023FUTA TAX LIMIT" 

0060 DATA "024032SIJTA TAX LIMIT" 

0070 DATA "033039FICA TAX RATE" 

0080 DATA "040048FICA TAX LIMIT" 

0090 DATA " 049055VAl.l IE OF 1 ALLOW TABLE 1" 

0100 DATA "036062VALUE OF 1 ALLOW TABLE 2" 

0110 DATA "063069VAUJE OF 1 ALLOW TABLE 3" 

0130 DATA "" 

0160 C-0 OPEN#i3, PAYCTL FOR UPDATE 

01/0 READ US IF DSO" " DS<C>-DS: C«Oi : GOTO 170 

0173 AS-OS 

0180 FIELD #15, ASdOO 
0185 GET #15 

0190 ? "DO YOU WISH TO ":?:?1;TAB<5); "EX 1T" 

0200 ? 2;TABC5); "CHANGE CONTROL FILE": ?3; TAB(5); 

0210 ? "ENTER NEW CONTROL FILE":?:INPUT "CHOICE",Ci 
0220 IF C1>0 IF Cl<4 IF Cl-INT(Cl) THEN 240 
0230 GOTO 190 

0240 ON Cl GOTO 350,280,250 

0230 AS=OS 

0255 FOR Xd TO C 

0260 COSUB 9000 

0270 NEXT X 

0275 ? CHRS(26);:GOTO 190 

0280 ? CHRS(26);"DO YOU WISH TO CHANGE":? 

0290 FOR X--1 TO C 

0300 2 X; TAB(5); MIDS(DS< X—1), 7) NEXT X:? 

0310 INPUT "SELECTION (O TO EX1T)",X 

0320 IF X-0 ?CHRS(26): GOTO 190 

0330 IF X>0 IF X<C+2 IF X-INT(X) GOSUB 9000 

0340 GOTO 280 

0350 REWRITE #15: CLOSE #15:CHAIN MAIN 

9000 Xl-VAL <LEFTS<DS< X-l ), 3) ) : X2= r VAL ( MIDS ( DS ( X-l ), 4, 3) ) 
9010 DS=MIDS(DS< X-l ), 7): BS--LEFTS < AS, X 1 — 1 ) CS^M1DS(AS, X2+1 ) 
9020 IF Cl-3 THEN 9040 

9030 ? "THE "; DS; " WAS " ; MI DS ( AS, X 1, X2-X 14-1 ) 

9040 ? "THE ";DS;" WILL NOW BF "i:INPUT A1 
9050 AS—LEFT S ( STRS ( A1 >+0S, X2-X14-1 ) 

9060 AS=BS4AS4CS:RETURN 
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0530 ? FOR J=1 TO A:?:?" LINE "; J: ? 

0540 INPUT " 1. "» T(J» 1 ): INPUT “ 2. ", T( J, 3): INPUT " 3. "» T (J, 4 ) : NEXT J 
0550 FOR J=1 TO A: T( J. 2)-T < J+l» l): T < J# 5>-T< J# 1 ): NEXT J 
0560 T (A. 2 > “ 1. 00000L+06 ?: ? 

05/0 ? “NOW CHECK THE NUMBERS?!” 

0580 FOR J=1 TO A PRINT T ( J, 1 ) , T< J. 2). T(J.3), T<J. 4)# T ( J, 5) ?: NEXT J 
05VO ? :?"IS ALL THF DATA CORRECT”; 

0595 INPUT A* 

0600 IF A*-"YES” THEN 670 

0605 ? “DO YOU WISH TO1-START OVER 2-RETYPE A LINE":? 

06 J 0 INPUT “SELECTION”.C: IF C“INT<C) IF OO IF C<3 ON C GOTO 480,630 
0670 GOTO 5/0 

0630 ? "LINE 4 TO CHANGE";:INPUT C: IF C-INT(C) IF C>0 IF COA THEN 650 
0640 ? “INVALID—TRY AGAIN”:GOTO 630 

0650 ? “GIVE ME THF; 3 NUMBERS FOR THAT LAST LINE AGAIN. " 

0660 INPUT " 1 ”, T <C, 1 ): INPUT" 2. ", T<C, 3) INPUT " 3 ". T (C, 4 ) : GG10550 
06/O SET #14-1: GET #14: AS-Sl'R*< A): REWRITE #14 
0680 SET #14-1*45-38:FORJ=1 TO A 

06V0 GET #14 A*=STR*<T<J. 1)): REWRITE #14 GET #14 
0695 AS« STR*(T<J,3)>: REWRITE #14 GET#14 
0700 AS=STR*<T(J.41/100):REWRITE #14 
0/10 NEXT J: ?: ^ 

0720 NEXT 1 

0730 ? “TABLE CREATION COMPLETED ” 

0740 CLOSE #14 CHAIN MAIN 
0750 END 


PROGRAM 2 

0010 REM ADFM RAG WRITTEN 3/14/78 BY DAVE GARDNER 
0020 STRING= 128 >CHRS< 26) DIM D*(2) 

0022 OPEN #10, MASTER FOR INPUT 
0075 FIELD #10, A*-100, B*-100. C*“-55 
0028 GET #10 CLOSE #10 X*-RIGHT*(C*» 8) 

0030 OPEN #11, MAST El FOR UPDATE 
0040 FIELD #11, A*-"lO0, B*-100. C*=55 

0050 GET #11 N1-VAI <"0"+MID*<A*,51,3>> 

0055 C5=N1 

0060 OPEN #12, PERFIL FOR UPDATE 
00/0 FIELD #12, At-103, B*-103» CS-49 
00/5 0 %~” 

0080 OPEN #13, EMPHST FOR UPDATE 
0090 FIELD #13, D*=100, ES-103, F6-52 

0100 D*(0)-MID*<A*, 88) D*(1 )--MID*(BS, 20, 32) : D*( 2)--MlD*( B*. 52, 32) 

0110 DS-LEFT * ( B*. 19):DS<0)-D*<0)+D* 

0115 FOR X--0 TO 2: FOR Y=LEN(D*(X)) TO 1 STEP-1 
0120 IF M1D*<D*<X>. Y)-* M ” NEXT Y 
0125 D* ( X ) "LFJFT* ( DS ( X ), Y ) : NEXT X 

0130 SET #13-N1 + 1 : GET#13: SET#12-“N1 + 1 GET# 12’ ?CHR*(26) 

0140 ? "EMPLOYEE # ”; C5+1:A-C5+1: INPUT "CONTINUE < Y OR N)",A* 

0150 IF ASC(A*)-78 THEN 370 
0155 C5-C5+1 

0160 Nl-Nl + 1: AS-LEFT*(STR*(A)+0*. 5>: 1NPUT "EMPLOYEE NAMF",B* 

Ol/O BS--LFFT*< B$-»04, 32) : A*=A*+B* INPUT "ADDRESS", B* 

0175 BS=LEFT* ( B*+OS, 30) : A*=A*+B* 

0180 INPUT "CITY, STAT E, & Z IP", B*: B*=LEFT*< B*-*OS, 30 >: A*=A*+B* 

0190 INPUT "DEPARTMENT #", A: A*-A*+STR*(A) 

0200 INPUT "MARITAL STATUS (M OR S> " , B*: BS=LEFT* < B*-» " ”,1) 

0210 INPUT "SOCIAL SECURITY", CS: B*-B*-»LEFTS<C*+0*. 11 > 

0720 INPUT "PAY CODE <W,S. OR C>", CS:BS=BS+LEFTS<CS+OS, 1)+"A" + XS 

0730 INPUT "DATE OF BIRTH <Mh/DD/YY)", CS BS=BS+”00/00/00"+LEFTS(CS+OS,8) 

0240 INPUT "PAY RAT E", A B*-=B*+"0"+LEFTS (STRS ( A)+0*. 7 ) 

0250 FOR X~0 TO 2: A«0: IF D*<X)«••"” THEN 270 

0760 ? DS < X ); " AMOUNT”; : INPUT A 

07/0 BS-BS M EFT * ( SIR* ( A) + " ”, 7) NEXT X 


PROGRAM 4 

0010 KKM TAXG F:AG-W«TfTFN 3/16/78 BY DAVE GARDNER 

0015 REM ADAPTED BY RANDY JACKSON--PERSONAL COMPUTER PLACE 

OU20 STRING-- 128 LINE =80: ?CHR*( 26); "PLEASE BE PATIENT" 

UO/7 OPEN #1U, MASTER FOR INPUT 
0024 FI ELD #10,A*-100, BS--100.CS-55 
0028 GET #10 CLOSE #10 X* RIGHT*(C*.8) 

0030 OPEN #11, MASTFI FOR INPUT 

0040 FIELD #11, A*—1 19, B*^*93, C*--43 

0O50 GET #11 CLOSE#il N1=VAI <"O"+M1DS<AS,51,3> > 

0060 OPEN #14, PAYTAB FOR INPUT 
00/0 FIELD #14, A*-1O 

0080 DIM 0(5), T(89, 2), A(3) 

0090 FOR X-lTO 6 GET #14 0( X-l )-VAL< ”0”+A* ) NFIXT X 
0)00 FOR X“-0 TO 5: FOR Y=0 TO 14 FOR Yl-0 TO 2 
01 i O GET #14: T ( < X* 15) +Y, Y1 ) —VAL ( "0"+AS) 

0)20 NEXT Y1 NEXT Y NEXT X 
0)75 DEF FNR(X) = INT(X*100+ 51/100 
0)30 OPEN #15. PAYCIL FOR INPUT 
0140 FIELD #15, A*=100 

0150 GET #15: CLOSE# 15 A( 0 ) -“VAL( "O"■►MID* ( A*, 49, 7 ) ) 

0160 A(1)VAL(”0"+MID*(A*.56,7)) A(2)=VAL("0"♦M1D*(A*,63.7)) 

0165 A( 3)--VAL( "O"+MI D* (A*, 33. 7) )/100 
01/0 OPEN #17, PERFIL FOR INPUT 
01CO FIELD #17, AS- 103, BS-103. C*-49 

0190 OPEN #13, EMPHSI FOR UPDATE 
0700 FIELD #13, D*=100. E*=104, F*-*51 

0210 FOR X s: 1 TO N1 GET#12 
0220 IF MID*(B*. 23, 8)OX* THF!N 540 
0275 GET #13 

0227 IF MID*(B*< 14, 1)="T" THEN 600 
0730 IF MID*(B*.13,1)-”W” THEN 270 
0240 IF M1D*(B*, 13. 1>- "S" THEN 300 
0750 IF MID*(B*, 13. 1 )-*"C" THEN 300 

07.55 ? " 1LLFJGAL PAY CODE ON # " , LEFT* ( A*, 5 ); ” HOUR! Y ASSUMFID" ; CHR* ( 7 ) 
07/0 R-VAL ( "0"+MID* ( B*. 97) ) : X1=VAL< "0"+MID* ( B*. 40, 7) ) 

0780 R1=VAI ("0"+LEFTS<CS,7)):R-X1*R R1=X1*R1*1 5 
0290 GOTO 310 

0300 R1--0: R=VAI ( "O" ♦MID* ( B*. 40. 7) ) 

0310 T=VAL("0"+MID*(B*»39, 1)) 

0320 T = T *30 

0330 B1 -VAL( "0"+MID*<C*, 8, 7) ) 

0340 P=R*R1+B1 

0350 F2=P*A(3):F1- 0:PI-^P 

0360 IF MID*(B*,39, 1)~"E" THEN 490 

0370 IF MID*(B*.39,1)-"S" THEN 4/0 

0380 P1~P-VAL<"0"+MIDS(CS.22,2))*A(1NT(T/30)) 

0390 IF LEFT * ( BS. 1 ) -•"M” T-T + 15 
0410 FOR X 1 : -1 TO Q ( I NT ( < T +1 ) /15) ) 

0420 IF Pl<«T<T+Xl-i.0) Xl-Xl-1: GOTO 440 

0430 NEXT XI 

0440 IF X1=0 THEN 490 

0450 F J -T(T + Xl-i, 1 ) : X2--P1-T(T + X1-1,0) IF X2<0 X2= 0 
0460 F1=*F 1*X2*T(T+Xl-1# 2): GOTO 490 

04/0 IF M1D*(B*. 82, 1 )0"5” F1-VAL< "0"«-MID*(BS. 82. 7) ) : GOTO 490 

0480 X1=VAI <"0”+MIDS(B*,83.6))/100:F1-P1*X1 

0490 S1--F1* 1 

0500 G*=MIDS(D*,66):Q*=” 

0505 D*=LEFT * (STR* (FNR(R ) )-^Q*. / )+LEFTS ( STR* ( FNR< Rl ) >+Q* ( 7) 

0510 D*=D*+LEFTS ( SIR* ( FNR < F* 1 ) )+U*, 7)+LEFTS (SIRS (FNR (SI ) )+Q*. 7) 

0515 D*=-U*+LEFT*(STR*<FNR<K2) )+Q*. 7) 

0520 D * - D* ■* " OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO " 

0530 D*=D*-*G* 

0535 REWRITE #13 

0540 NEXT X 

0550 CLOSE #12,#13 













0b60 CHAIN UPDT 

0600 G*-R IGHT* (D*,63) 

0610 Dt-"00000000000000000000000000000000000999999" 

0690 D*-U*+G* 

0630 GOTO 535 

PROGRAM 5 

001 n REM FWR? HA?.. URITIKN 3/22/78 BY DAVE GARDNFR 

null REh ADAPTED BY RANDY JACKSON—PERSONAL COMPUTER PLACE 

0090 STRING^ 128 LINP^-0 >CHR*(26> Z-0 P-0 Ll-66 



0022 Ot " 

002b Z =4 

0030 OPEN #10. MASTER FOR INPUT 
0040 HELD mo. At-92, B*^104, C*-’59 

0050 GET mo CLOSE #10 DIM H*(6),T<6> 

OObb X*-RIGHT*(Ct, 8) 

0060 H*(OXMID*( At, 7. 46) H* < i )-~MID*(A*, 03, 40) H* (2 ) - LEFT * ( B*. 40) 
006b H*(3>-M1D*(B*, 41.32) H*(4)-MID*(Bt,73) 

00/0 FOR X—01 04 FORY- LEN( H* ( X ) ) T G1 STEP- 1 IF MID* ( Ht ( X ), Y» 1 ) — ’* M NEXT 
0080 H* < X ) '-"LET T* ( H* ( Y ), Y ) NFXT X 
OOvO OPEN #11, MAS|E1 FOR 1NPUI 
0100 FIELD #11, At-119, B*-96, C*“40 

0)10 GET #11 CLOSE #11 H*(S)--V*'H*(6)-MD*<B*, 66, 8) 

Olib IF NJDKBS, 14. 1)-"T" THEN 350 

0170 N1=VAI <"0"+MlD*(At,bl.3)) Y1^VAL("0 M +M1D$(A*. 4b, 6)) 

O130 OPEN #17. PERF1L FOR INPUT 
0)40 FIELD #12, At-103, B*-103, C*-=49 

01bO OPEN #13, EMPHST FOR INPUT 
0160 FIELD #13, D*~100, Et=104, Ft^bl 

0170 GOSUB 9000 

0180 FOR X--1 TO Ni GET#12: IF hiD* ( Bt, 23, 8) OXt THEN 3b0 
0)90 GET #13 FOR Y-5 TO 1 STEP-1: IF MI D* ( At, Y, 1 )-" " NEXT Y 
O19b Gt-LEFTt(AS,Y) 

0200 ? #/, RIGHT*(Ot+Gt, 6); " " ; Ml Dt < At, 6, 32) ; 

0710 A-VAI ( "0"+MIHt<C*. 8, 7) )+VAL( "0"+LEF T t ( Dt, 7) ) 

0720 A—A-» VAL( "0"+MIDt < Dt, 8,7)> T<0)-T <0>+A 
072b DIG I rS« 2 

0230 ? #/, RIGHT t < Ot+ST Rt ( A), 1 1 ); : A1 - VAI. ( M 0 " +MI Dt ( Dt, 15, 7) ) 

0740 T ( 1 ) -~T ( 1 ) + A1 : A—A-A1 
074b ? #Z,RIGHTt(0*1STR*(A1),9); 

0750 A1 —VAL("0"+MIDt(Dt»22.7)) 

0755 ? # Z,RIGHT *(OS+ST Rt(A1),9); 

0260 T <2)=T<2)+A1 A^A-A1 Al^VAL("0"+MID*(Dt. 29,7)) 

0270 A=A-A1:T(3)-T(3)+Al >#Z.RIGHT*(0*+STR*(Al),9); 

02/5 A-A+ UAL < "0"+MI Dt ( C*» 15,7)) 

0280 T ( 4 ) =T< 4 ) ♦ 1 :?#Z, RIGHTt(Ot+STR*(A), 15); 

0290 A1 -VAI. ( ”0"-*-Ml Dt ( Ct, 32, 7) ) 

0300 FOR A2~0 TO 3 

0310 A1 “Al+VAL ( "O" +MI Dt ( Bt, A7-W-7+4 7,7)): NEXT A2 
0370 T < 5)-T(5)+A1 >#Z, RTGHTt(Ot+STRt<A1), 11); : A^A-A1 

0330 T ( 6 )«T < 6) +1: '>#Z. RIGHT *<Ot+STR*(A), 11 ) 

033b DIGITS- 0 

0340 I "*l *2: IF L>b9 GOSUB 9000 
03b0 NEXT X 

0360 FOR X-L 10 59:?#Z:NFXT X 
0370 ? #Z, " TOTALS M ; 

0380 DIGITS- 7:FOR X-0TG3:?#Z,TAB<X*9+43);RIGHT*(0*+STR*<T<X)), 9); 
0382 NEXT X: FOR X--4TG6: ?#Z. TAB< X*11+41); RIGHT*< 0*+STR* ( T < X > ), 9); 

0385 NEXT X:DIGITS-0:?#Z 
0390 CLOSE #12,#13:CHAIN PWR4 

9000 ? # Z, CHR* (12): P-P+1 ?#Z, TAB ( 11 ) ; "PAGE «; P 
9010 ? # Z # T AB(L1-LEN(Ht(0))/2);Ht(O) 

9070 ? #Z, "FEDERAL EMPLOYER # ";Ht<3);TAB<Ll-LEN(Ht<i))/2);Ht(1); 

9030 ? #Z,TAB(87);"CHECKS ARE DATED ";H*(5) 

9040 ? #Z, "STATE EMPLOYER # ";Ht(4);TAB(LI-LEN(Ht(2))/2),H*<2) 

9050 ? #Z,TAB(58>;"PAYROLL REGISTER";TAB(87);"YTD PAYROLL # "; 


Y 


0410 ? #Z, " NAME";TAB<37>; TAB(51>; "*"; TAB(65); "*"; TAB(78); 
0470 ? #Z, TAB(5); TAB(16); "AND ADDRESS";TAB<37); ; 

0430 ? #Z, TAB<51);"*"; TAB<65) TAB<78); "*" 

0440 ? #Z, " > E*(1); LFFT* (S*» 4?): ?#Z, TAB(5); ; E*< 2 ); "■# "; 

0450 ? #Z,"STATE TAX * STATE WAGES * STATE *" 

0460 ? #Z,TAB<5>;E*<3>; L-13: A1~A<4>:GOSUB 8000 

0470 ? #Z,:A1«A(3):GOSUB 8000 
0480 ? #Z,"* ARIZONA *" 

0490 ? #Z, TAB(5); TAB<37>; LEI r T*(S*. 42) ?#Z, T AB < 5); TAB(37); 

0500 ? #Z, "* STATE TAX * STATE WAGES * STATE *" 

0510 ? #Z, TAB(5); TAB(37);, TAB(51); TAB(6b); TAB(78); 

0570 ? #Z, " "; LEFT* (S*, 74 ) : ?#Z, " FORM W-2":NEXT XI NEXTX 

0530 CLOSE #12,#13 
0040 CHAIN MAIN 

3000 DIGITS- 2: ?*Z,RIGHT *(0*+ST R*(A 1), L) ; 

8010 DIGITS- 0:RETURN 
8020 RETURN 

PROGRAM 7 

00)0 REM IJpm BAS WRITTEN 3/16/78 BY DAVE GARDNER 

OOll REh ADAPTED BY RANDY JACKSON—PERSONAL COMPUTER PLACE 

0070 STRING- 128 L 1 NF.-80 ^CHR*( 26 >; 

0022 Ot-" 

0025 DIM N(20) 

0026 OPI N #10. MASTER FOR INPUT 
002/ FIELD #10. At--100. Bt-lOO. C*-'55 
0028 GET #10:CLOSE #10 Xt-RTGHTt(Ct,8) 

0030 INPUT "SHOULD 1 ERASE OLD YT D INFO ".At 

0040 IF ASC< At) -89 N( 2 )-• 1 N( 1 )- 1 N<0)«1 GOTO 100 

0050 INPUT "SHOULD I ERASL OLD QTD INFO ", At 

0060 IF ASC(At)-89 N(2 >-0:N(1>-1 N(O)- 1 GOTO 100 

0070 INPUT "SHOULD I ERASE OLD MTD INFO ", At 

0080 IF ASC ( At) -89 N ( 2 ) -0: N ( 1 ) -*0: N ( 0) - 1 : GOTO 100 

0090 N(2)-0 N( 1 ) *~0: N<0)-0 

OIOO OPEN #11, MASTE1 FOR INPUT 

0)10 FIELD #11, At-100, BtHOO, C*=55 

0120 GET #11 CLOSE#11 Nl-VAI ("0"+hlDt(At,51,3)) 

0130 OPEN #lb. PAYCTL FOR INPUT 
0140 FIELD #15, At-100 

0150 GET #15: CLOSE# 15: N( 4 ) - VAI ( "0"+hl Dt ( At, 8, 7 ) )/100 

0)60 N( 3 ) --VAL ( "0"-*-Ml Dt ( At. 7) )/100 

0170 OPEN #12, PERFIL FOR UPDATE 

0180 FIELD #12, AVH03, B*^103, C*^49 

0190 OPEN #13, EMPHST FOR UPDATE 

0200 FIELD #13, D*»100. E*^104, F*-=51 

0710 N(5)“0 N(6)= 0 N(7)-0 

0270 FUR X-l TO Nl 

0230 GET #12:GET#13 

0240 IF MID*(Bt, 23, 8)-*X* THEN 260 

0242 IF MTD*(Bt,14,1)-"T" THEN 795 

02^.0 FOR X1 -"8 TO 16: N( X1 )~0: NEXT XI: GOTO 370 

0260 N ( 10 ) ==VAL ( "0"+LEFT* < Dt, 7) ) : N( 11 ) -VAI.( "0"+MID* ( D*. 8, 7) ) 

0270 N< 12)--VAL( "0" +MID* ( D*, 15. 7) ) : N( 13) -• VAL ( "0" +MID*( Dt, 22, 7) ) 

0280 N ( 1 4 ) -VAL ( "0"4M1D*( D*. 29, 7) ) : N( 15 ) - VAI. ( "0"+M1 D* ( C*, 8, 7) ) 

0290 N < 16 ) : =VAL ( "0"+MI Dt (Ct, 15, 7) ) : N( 17)«VAL( "0"+MID*(C*. 25, 7) ) 

0300 N(18)-VAL("0"+MID*(Ct, 32, 7)) : IF N(17)»0 N(8)«0:GOTO 320 
0310 N ( 8) — (N ( 10) -*-N (11) +N (15)) *N ( 3) : IF N(17)-0 N(8)-0:GOT0 320 
0320 IF N( 18)--0 N ( 9 ) -O: GOTO 340 

0330 N(9)»(N( 10)-KN< 1 1 )4-N( 15) >#N<4>: IF N(18)-N(9)<0 N(9)^N(18) 

0340 N(17)“N(17)—N(8):N(18)—N(18)—N(9) 

0350 G*—MIDt(C*,39):C*-LEFT *(C*. 24)+LEFT*(STR*(N(17))+0*,7) 

0360 C*-C*+LEFT* ( STR* ( N ( 18) ) +0*, 7 ) -*-G*: REWRIT E #12 
0370 IF N(O)<>1 THEN 400 

0380 D*~L FT T t(D*.6b)♦"00000000000000000000000000000000000" 

0390 G*=MIDt(E*. 15): E*^"00000000000000"+G* 

0400 G*—LEFT*(D*,6b) 
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9060 ? #Z.Yl:?#Z,TAB(53>; "FOR PERIOD ENDED ";H4<6):?#2 

9070 ? #Z, " EMP # NAME";TAB(41)>"GROSS WAGES RED STATE 

9080 ? #Z, "FICA NET PAY BEFORE MISC. NET PAY*' 

9090 ? #Z, IAB(57>; "W/H. W/H. " i TAB (82) ; "MISC. DEDUCTIONS DEDUCT 

9100 ? #Z L-~11 RETURN 


PROGRAM 6 


00 J o 

oo 11 

oo/o 
0022 
UO/5 
0027 
00.<0 
0040 
0041 
0042 
0043 
004 4 
004b 
0046 
0050 
0060 
OU/0 
0030 
0090 
0092 
0094 
0096 
O) OO 
01 Ob 
OllO 
0120 
01 30 
0140 
0150 
0160 
OJ /O 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0262 
0265 
02/0 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
034b 
0350 
0360 
03/0 
03/5 
0380 
0390 
0400 


REM PW-2 BAS WRITTEN 3/25/78 BY DAVE GARDNER 
REN ADAPTED BY RANDY JACKSON—PERSONAL COMPUTER PLACE 
STRI NO-- 128 L INE-0 VCHR4 < 26) D1M H4 ( 4 ) , I * (5) * A ( 4 ) 
ns vs •• 

Z-4 

INPUT "WH) N THE PRINTER IS READY PRESS 'RETURN'",A4: VCHR4(26) 


I4=" AjBC 
S4-SV+ 
14(0)-" 
14(1)-: 

14 ( 2 > “ 
14(3)=' 
14(4 >--" 
14(b)" 
OPEN 410, 


*• -ir V-ic it *• * V + V -ic V V ir * -IMr V *■ *■ V -JUr *■ * * *• *■ W -lr * *• V *■ + V -It *- * V -»r V *• *• " 1 

I R S CENTER " 

CITY OR SI ATE M 
EMP F EDERAI 
EMPLOYEE 
EMP STATE 
EMPLOYER 

MASTER FOR 1NPIJT 
MELD 410, A4-92, B4-104, C4—59 

GET 410 CLOSE #10: X4-RIGHT4 ( C4, 8) H4 ( O) --MID4 ( A4, 7,46) 

H4(1)—MID4(A4,53) H4<2)-LEFT 4(B4, 40) 

H4 < 3) -MI D4 ( B4, 4 1,32 ) H4 < 4 ) -hi D4 ( B4, 73) 

FOR X-0 TO 4 EORY-LEN(H4(X) )TO 1 STEP-1 
IF " "—MID4(H4( X )» Y» 1) NEXT Y 
H4 ( X ) —LEF T4 ( H4 ( X ), Y ) NEXT X 
FOR X“-0 10 3 H4 ( X ) -LEF T 4 ( 04, 22-LEN ( H4 ( X ) ) /2 ) +H4 ( X ) 

H4 ( X ) "-LEFT4 ( H4 ( X ) +04, 45) NEXT X 
OPEN #11, MAST El FOR INPUT 
FIELD #11, A4-"87, B4^96, C*-72 
GET #11 CLOSE #11: N1-VAL< "0"+hID4(A4, 51,3) ) 

OPEN #12, PERFIL FOR INPUT 
MELD #12, A4—103, B4-103, C4-49 

OPEN #13, EMPHST FOR INPUT 
MELD #13, D4-100, E4-104, F'4-51 

FOR Xvs 1 TO N1 
GET #12 GET #13 
E 4(0)-" "+MID4(B4,2, 11) + " 

A ( 0 ) ~-VAL ( "0"+MlD4 ( F 4, 10, 7) ) A( 1 )-=VAL ( "0"+MID4 ( F4, 38, 7) ) 

A(2)---VAL( "0"+Ml D4 ( F4, 24, 7) ) A(3)^VAL( "0"+MID4(E4,96)) 

A(3) -A(3)+VAL ("0"+LEFT4(F4,7))+VAL("0"+MID4(F4, 31,7)) 

A(4)=VAL("O"+MID4(F 4, 17.7)): E4(1)=MID4(A4, 6, 32) 

E4(2)“MID4(A4,38, 30) E4<3>-MID4<A4,68,30) 

FOR Xl-1 TO 3: FOR Y-LEN (E4 ( X i )*) TO 1 STEP -1 
IF M1 U4 ( E4 ( X 1 ), Y, 1 )-*" " NEXT Y 
E4(XI)-LEFT 4(04, lb-Y/2)+LEFT4(E4(X1>,Y) 

E4< XI ) - ; LEFT 4 ( E4 ( X 1 >+04, 31 ) : NEXT XI 
FOR X 1-1 TO LEN (14) 

? # Z : V# Z , T AB (5); " * "; TAB ( 36); " * "; T AB (50); " WAGE AND TAX STATEMENT"; 

? #Z. M " 19";RIGHT4(X4, 2):?4Z,T AB(5); ;TAP < 36); " 

? #Z,T AB(5 >;LEFT4(S4, 74):?#Z,T AB(5); "*";H4(O); "EMPLOYERS * COPY"; 

? #Z, " ",MID4<14, XI, 1); " FOR *" ?#Z,TAB(5>; H*(1); " NAMF"; 

? #Z, " *"; I4(X1-1>; ?#Z, TAB<5); "*"; H4<2); " & "; 

? #Z, l EET4(S4, 18) : ?#Z, TAB(b); H4(3>; " ADDRESS *";H4<4); 

? #Z,TAB(78); 

? #Z.LEFT*^S4,78):?#Z, TAB(5>; "^EMPLOYEE S. S. #*FED INCOME TAX*"; 

? #Z, "COMPENSATION *FICA WITHHELD*TOTAL WAGES :?*Z,TAB(5>; ; 

DIGITS- 2: ?#Z,E4(0); RTGHT4(04+STR4(A(0)), 15); "*" 

DIGITS- O:A1"A(1):L-l3+GOSUB 8000 
? #Z,"*";:Al-A<2>:GOSUB 8000 
? #Z»:A1=A(3):L-l2:GOSUB 8000 

? #/, "*": ?#Z, LEFT 4 (S4, 78) ?#Z. TAB (5); "*"; T AB ( 15); 


0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

06/0 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0/50 

0760 

0770 

0780 

0790 

0795 

0800 

0810 


H4-M1D4(D4, 66, 7):G4-G4+LEFT4(STR4(VAL("0"+H4)+N<10))+04, 7) 

H4—MJ D4(D4, 73, 7) G4-G4+LEFT4(STR4(VAI. ("0"+H4)+N(11))+04, 7> 

H4-MID4 ( D4, 80, 7 ) G4-G4+LEF'T4 ( STR4 ( VAL ( "0" +H4 ) +N ( 12) )+04, 7) 

H4-MTD4 ( D4, 87, 7) : G4-G4+LFFT4( S TR4 (VAL ( "0"+H4)+N( 13) )+04, 7) 
H4=MIU4(D4,94):U4-G4+LEFT4(STR4(VAL("0"+H4)+N(14)),7) 

H4=-LFFT 4 ( E4, 7) : G4-LF.FT 4 (ST R4 ( VAL ( "0"+H4)+N( 15) )+04, 7) 

H4-MID4(E4, 8, 7) G4-G44 LEFT % (STR*(VAL("0"+H4)+N(16)>+04,7) 

E4=T*11D4 ( E4, 15) : E4=^G4+E4 
IF N( 1 )<>1 THFIN 530 
G4=MID4(E4,82): E4-LEET4(E4,14) 

E4-E4+"000000000000000000000000000000000000000000000000000000000000" 
E4-E4+"000000"+G4 
G4~LFFT4(E4, 14) 

H4-MID4(E4, 15,7):G4-G4+LEFT4(SIR4(VAL("0"+H4)+N(8))+G4, 7) 
H4=MID4(E4, 22. 7) : G4-G*+LEF‘T'4 ( STR4 (VAL ( "0" +H4 ) +N < 9 ) )+G4, 7) 


H4=MID4(E4,29.8) 
H4-M1D4(E4,37,8) 
H4-MI ( E4, 45. 7) : 


G4—G4+LEFT4(STR4(VAL("0"+H4)+N(10))+G4, 8) 
G4-G4+LEFT4(STR4(VAL("0"+H4)+N(11))+04, 3) 
G4=G4+LEFT4(STR4(VAL("0"+H4)+N(12))+04,7) 
H4"MI D4 ( E4, 52, 7) : G4-G4-» LEF T 4 ( STR4 ( VAL ( "0"+H4)+N( 13) )+04, 7) 
H4-MID4(E4,59,7): G4-G4+LEFT4(STR4(VAL("0"+H4)+N(14))+04, 7) 
H4=M1D4(E4, 66, 8) : G4---G4+LEFT4( STR4 < VAL ( "0"+H4 )+N( 15) )+04, 8) 
H4=MID4(E4,74,8) : G4-G4+LEFT4 < STR4(VAL <"0"+H4)+N(16))+04, 8) 
H4-MID4(E4,82):L4^G4+H4 
IF N(2)<>1 THEN 680 

E4=LET T*<E4, 81)+"00000000000000000000000" 

G4-MID4(F4,45) 

F4=-"00000000000000000000000000000000000000000000"+G4 
H4=MID4(E4, 82, 7 ) G4-LEF"T 4 ( STR4 ( VAL ( "0" +H4 ) +N ( 8) )+04, 7) 
H4=-MI H4 (E4, 89, 7 ) G4-G4 »LEFT4 ( ST R4 (VAL < "0>"H4 > +N < 9 ) )+04, 7) 
H4—hID4(E4,96) G4-G4+LEFT4(STR4(VAI. ("0"+H4)+N <10)> +04,9) 
E4—LEFT4(E4,81)+G4 

H4-MID4 < F4, 1,9) G4-LEFT 4(STR4(VAL("0"+H4)+N <11))+04,9) 
H4=M1D4 < F 4, 10,7):G4-G4+LEFT*(STR4(VAL<"0"+H4)+N<12))+04,7) 
H4=MID4(F4,17,/>:G4-G4+LEFT4(STR4(VAL("0"+H4)+N(13))+04,7) 
H4—MID4(F4,24,7):G4-G4+LEFT 4(STR4(VAL("0"+H4)+N(14))+04,7) 
H4-MI D4 (F4, 31,7) : G4-G4+LEF"T 4 ( STR4 ( VAL ( "0" +H4 ) +N ( 15) )+04, 7) 
H4-MID4(F4,38,7): G4-G4+LEFT4(STR4(VAL("0"+H4)+N(16) )+04, 7) 
H4—MT D4(F4, 45):F4-G4+H4 
REWRITE #13 
NEXT X 

('LOSE #12. #13 CHAIN PCHK 
END 


PROGRAM 8 


’EMPLOYEE" 


OOO1 
0002 
0005 

001 o 
0020 
0025 
0040 
0070 
0080 
0090 
0100 
0103 
0105 
01 1U 
0115 
0231 
023b 
0237 
0238 
0240 
0250 


REM MAIN BAS WRITTEN 1/78 BY DAVL GARDNER 
LINK-- 0 
04-" 

PRINT CHR4(26) 

PRINT "DO YOU WISH TO " 

v 


REM 40 SPACES 


"ADD EMPLOYEES" 

"EDIT EXISTING EMPLOYEE RECORDS" 

"INITIATE PAYROLL RUN" 

DATA "CONTINUE PAYROLL RUN" 

DATA "PRINT A LISTING OF Al.L EMPLOYEES" 

PRINT W-2 FORMS" 

CHANGE EMPLOYEES HISTORY" 

PRINT HISTORICAL REPORT" 

DATA "BUILD F IT WITHHOLDING TABLES" 

DATA "" 

READ D4 IF D4= M " THEN 240 

C-C+l: ?LEFT4<STR4(C)+" "+D4+04, 39) ; : IF C/2MNT(C/2) 
GOTO 235 

? : ?: ? 

PRINT "SELECTION"; INPUT A 


DATA 

DATA 

DATA 


DATA 

DATA 

DATA 
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m 


■ 

: 


0/60 IF A<1 I HEN 20 
0270 IF A>9 THFIN 20 
0280 IF AOINT(A) THEN 20 

0/90 ON A GOTO 310,320,330,340.350,360,370,380,390,400,410,420 

0300 ON A- 11 GOTO 430,440,450, 460,470,480, 490,500,510,520 

0310 CHAIN AVJEM 

0320 CHAIN CHEM 

0330 CHAIN STR7 

0340 CHAIN TAXS 

0350 CHAIN PREM 

0360 CHAIN PW-2 

0370 CHAIN CHHS 

0380 CHAIN HSTY 

0390 CHAIN 7BLE 

0520 t Nil 


PROGRAM 9 

0010 REM CHFM RAP. WRITTEN 3/14/78 BY DAVt GARDNER 
0020 STRING^ 128 '*CHRS<26) DIM ES < 3),DS < 2) LINE-0 
0025 0S-" 




0030 OPEN #12, PERE1L FOR UPDATE 

OO40FIEID #12, AS-103, BSH03, CS^’49 

0050 OPEN #11, MASTE1 FOR INPUT 

0060 FIELD #11, AS—100, BS^-100, CS-55 

0070 GET #11 CLOSE#ll Nl-VAL<"0"+MIDS<AS,51,3)) 


0080 
0090 
0100 
Olio 
01/0 
0130 
0140 
0150 
0160 
(>165 
0170 
0180 
01 90 
0/00 
0210 
0/20 
0230 
0/40 
0/50 
0260 
0270 
0/80 
0290 
0291 
0/92 
0295 
0/96 
0300 
0305 
0310 
0320 
0325 
0330 
0335 
0340 
0350 
0360 
0370 
0380 
0390 


DATA M 100603/EMPLOYEE NAME" 

DAI A "1038067STREET ADDRESS" 

DATA "1068097C1TY,STATE, & ZIP" 

DATA " 1 0981 03DEPART ME. NT # " 

DATA "/OO1001MARITAL STATUS (S OR M>" 

DATA "200201/SOCIAL SECURITY #" 

DATA "2013013PAY CODE (W, S, OR O" 

DATA "2014014W0RK STATUS (A OR T)" 

DATA "2015022DAT E OF HIRE" 

DATA "/023030LAST DATE PAID" 

DATA "2031038HATE OF BIRTH" 

DATA "2039039DED CAI.C. CODE (0, 1,2,S, OR E) 
DATA "2040046PAY RATE" 

DATA "2047053S0" 

DATA "2054060S1" 

DATA "2061067S2" 

DATA "20680 /4SPECI Al. DEDUCTION AMOUNT" 

DATA "7075081STATE W/H RATE IN X" 

DATA "2082088SPECIAL W/H FIELD" 

DATA "2089096DATE OF LAST RATE CHANGE" 

DATA "302102/# OF EXEMPTIONS CLAIMED" 

DATA "30230230CCUPATIONAL RTSK CATEGORY" 

DATA "3024029FUTA LIABILITY THIS PERIOD" 

DATA "7097103# OF REGULAR HOURS" 

DATA "3001007# OF OVERTIME HOURS" 

DATA "3008014AMOUNT OF BONUS" 

DATA "3015021AMOUNT OF EXPENSE RE IMB " 

DATA "3030035SUTA LIABILITY THIS PERIOD" 

DATA "" 

riS(0)^LEFTS(BS, 19) : DS ( 0 ) ■= MI DS ( AS, 88)+DS<0) 
DS(1)-MIDS(BS,20,32) DS(2)«MIDS(BS,52, 37) 
FOR X~0 TO 2 FOR Y«LEN(DS(X)) TO 1 STEP-1 
IF MiriS ( DS ( X ) « Y, 1 )«" " NEXT Y 
DS ( X ) --LEFTS ( DS ( X ), Y) NEXT X 
? CFIRS ( 26 ) 

INPUT "EMPLOYEE # TO CHANGE (0 TO EXIT)",A 
IF A“0 THEN 680 
IF A >N1 GOT O 440 

SET # 12 ai A• GET # 12: AH VAL ( "0" +LEF7 S (AS, 5) ) 

IF A1~A THEN 450 


0410 X1-X1+X2: GOT0430 


0/02 ? " IN OUT":?"HHMMHHMM" ?:/"ENTER 'RETURN' TO EXIT":?:? 

0710 INPUT DS: X1—VAL("0"+LEF7S(DS, 4)) : IF Xl>2400 THEN 280 
0215 IF DS-"" THEN 310 

0220 X2-VAL ( "0" +M1 DS ( DS, 5, 4 ) ): IF X2C2401 THEN 290 

0/80 ? "ILLEGAL INPUT"+CHRS<7):GOTO 210 

0290 IF X2<X1 Xl-X1-2400 

0300 T=T+<X2-X1)/100:GOTO 210 

0310 IF T >H T1=T—H: T-H 

0311 IF T-0 THEN 440 

0315 ? "REGULAR HOURS".T:?"OVERT1ME HOURS",T1 

03/0 BS-“L EFTS< BS, 96)+STRS<T): CS-LEFTS(STRS( 7 1 )♦" ", 7) +MIDS<CS, 8) 

0330 GOTO 420 

0340 IF MIDS(TS,Z,1)<>"!" THEN 440 
0350 GOTO 470 

0360 IF MIDS(T S, 2, 1)<>"1" THEN 440 
03/0 GOTO 470 

0380 IF MIDS(TS,3,1)<>"1" THEN 440 
0390 ? CHRS(26); "EMP #"i LEFTS(AS. 37> 

0400 ? "COMMISSION", : INPUT T:DS—MIDS(BS, 47) 

0410 BS-LFFTS ( BS, 39) CLEFTS < STRS ( T ) + " ",7)-»-DS 

0470 DS-MIDS(BS,31) BS-LEFTS(BS, 22HXS+DS 
0430 REWRITE #12 
0440 NEXT X 

0450 Cl.OSE #12 CHAIN MAIN 


PROGRAM 11 

0010 REM PREM BAG WRITTEN 3/20/78 BY DAVE GARDNER 
OO 1 5 Z-4 

0020 STRING- 128 LINE-0 ''CHRS < 26) DIM HS(5),DS<2) 

0022 0S-" 

0075 INPUT "WHEN THE PRINTER IS READY PRESS RETURN",AS 'CHRS(26) 

0080 OPEN #11. MAST El FOR INPUT 

0040 FIELD #11, AS—119,BS—96* CS—40 

0050 GET #11 CLOSE# 11 N1 - VAL ( "O"■♦■MIDS ( AS, 51,3)) 

0051 TS—LEFTS(CS,39) 

00!.3 OPEN #12. PERFIL FOR INPUT 

0055 DS(0)=M1DS(AS.88) DS(1)-LEFTS(BS,32) 

0056 DS ( 2) --MI DS ( BS, 33. 32) 

0057 FIELD #12. AS=i03, BS^103, CS-^49 

0060 OPEN #10. MASTER FOR INPUT 
00/0 FIELD #10, AS—92, BS--104, CS^59 

0080 GET #10 CLOSE#10’HS(0)-MIDS(AS, 7,46): HS(1)-MIDS(AS,53) 

0085 XS--RIGHTS(CS, 8) 

0090 HS ( 2) -LEFTS (BS, 40) HS ( 3) --MIDS ( BS, 41.32) HS ( 4 ) -*M 1 DS ( BS, 73) 

0100 LET HS(5)-"REPORT OF EMPLOYEES AS OF "+XS 

0105 FOR X-0 TO 2 FOR Y~LFN(DS(X)) TO 1 STEP-1 

OHO IF MIDS(DSCX), Y, 1 )«"0" NFL XT Y 

0113 DS ( X )-LEFTS ( US( X ). Y) : NFIXT X 

0120 LI-66: P«-*0 GOSUB 9000 

0140 FOR X--1 TO N1 GET#12 

0150 ? #Z, LEFTS<AS,5)i " ";MIDS(AS,6,32); " 

0)60 IF LF.FTS(BS, 1 >-"M" ?#Z, "MARRIED"; : GOTO 180 
0170 ? #Z, "SINGLE 

0180 ? #Z, " ",MIDS(BS,23,8>i " "i MIDS<BS,31,8); 

0)90 A=VAL<"0"+MIDS<BS,47,7)) 

0195 DIGITS’^ 2:^#Z." "; RIGHTS (OS+STRS (A), 15) ; " DS<0);: DIGIT -0 

0200 ? #Z.TAR(127);MIDS<CS,24,1) 

0710 ? #Z, 7AB(7); MIDS<AS,38,30); " "; 

02/0 QS-MIDS(BS,13.1):IF QS^"C" THEN 250 

0225 IF QS-"S" THEN 240 

0730 ? #Z, "HOURLY :G0T0260 

0740 ? #Z, "SAI ARY "; : GOT0260 

0/50 ? #Z. "COMMISSION"; 

0260 IF MTDS(BS,14,1>«"A" ^#Z," ACTIVE ";:G0T0280 
0770 ? #Z,"TERMINATED"; 

0280 DS--MI DS ( BS, 39, 1 ) 
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0440 ? "EMPLOYEE NOT FOUND":GOTO 350 

0400 ES ( 1 ) -AS:ES < 2 > -BS: ES < 3) -CS 

0460 RESTORE :? Cl IRS ( 26): C-0 

04/0 READ AH. IF' AS-"" ?:?:GOTO 530 

0480 C-C+i: ?C; : IF h IDS (AS. 8, 1>—"S" THEN 500 

0490 ? MIDS(AS,8);:GOTO 510 

0500 ? DS (VAI (MIDS ( AS. 9) ) ); 

0510 IF C/2-INT(C/2) ?:GOTO 470 
0570 ? TAB(40); GOTO 470 

0530 ? "EMPLOYEE # "; LEFTS(ES(1).5); " ";MIDS(ES(1),6.32) 

0535 INPUT "ITEM # TO CHANGE (0 TO EXIT)",A 
0540 IF A=0 THEN 670 

0550 IF A >0 IF A<C IF A-1 NT(A) THEN 570 
0560 GOTO 530 

0570 RESTORE FOR Al-1 TO A:READ AS:NEXT A1 

0580 IF Ml DS( AS, 8. 1 >0"*" THEN 600 

0590 AS—LEFTS ( AS, />+DS(VAL(MIDS(AS, 9) > ) 

0600 ? "THE MIDS(AS,8);" WAS 

0610 P8-VAL < LEFTS(AS, 1)) KS-ES(P8) P8—VAL(MIDS(AS,2,3)) 

0613 LS—MlDS(AS,5.3) MS-MIDS(AS,2.3) 

0615 ? MIDS(KS»P8, VAL(LS)—VAL(MS)♦1) 

0620 INPUT "IT Will. NOW BE", BS 

0630 LS=LF'ETS( AS, 1 ) MS-MIDS(AS, 2, 3) CS-LEF'TS ( ES (VAI <L*)),VAI (MS)-l) 
0640 MS-MIDS(AS,5,3) DS-MIDS(ES(VAL<LS)),VAL(MS>+1) 

0650 BS—l EFTS(BSiOS, VAL(MIDS(AS,5,3))-VAL(MIDS(AS, 2,3)> + l) 

0660 ES( VAI. (LEFTS (AS, 1 ) ) >-CS+BS+DS: GOTO 8000 
0670 AS-ES(1): BS-ES(2): CS-ES<3):REWRITE #12:GOTO 340 
0680 CLOSE #12: CHAIN MAIN 
8000 A9=((Ml)/2+3 

8010 ? CHRS(27); CHRS<31+A9); " "; 

8020 FOR F1-A9 TO 22 7LEFTS(OS+OS,75>:NEXT FI 
8030 ? CHRS ( 27 ); ; CHRS (31 +A9 ); " 

8040 GOTO 530 

PROGRAM 10 

0010 REM PINP BAS WRIT IFN 3/15/78 BY DAVE GARDNER 

0011 REM ADAPTED BY RANDY JACKSON—PERSONAL COMPUTER PLACE 

0020 STRING= 128 LINE-80 7CHRS(26) 

0022 OPEN #10. MASTER FOR INPUT 
0075 FIELD #10, AS-100, BS-100, CS*55 
0028 GET #10: XS-RIGHTS(CS, 8) : CLOSE#10 
0030 OPEN #11, MAS I E 1 FOR INPUT 
0040 FIELD #11, AS-119, BS-93. CS-43 

0050 GET #11 CLOSE #11:7S-MIDS(BS.84,6> Nl-VAL("0"+MIDS<AS. 51, 3)> 

0053 IF LEFTS ( TS, 1 )O" 1 " THEN 60 

0055 INPUT "NUMBER OF HOURS IN WORKING WEEK",H 

0060 OPEN #12, PERFIL FOR UPDATE 

0070 FIELD #12, AS-103, BS-103, CS-49 

0080 FOR X---1 TO N1 

0082 GET #12 

0084 IF MIDS(BS, 14, 1)«"T" THEN 440 
0086 DS=MinS(BS, 13, 1) 

0090 IF DS-"W" THEN 160 

0)00 IF DS-"S" THEN 340 

0110 IF DS—"M" THEN 360 

0120 IF DS-"C" THEN 380 

0130 ? "ILLEGAI PAY CODE ON EMPLOYEE #";LEFTS(AS, 5) 

0140 ? "CONTINUE"; INPUT AS IF A3C(AS)-89 THEN 160 
0150 STOP 

0160 IF LEFTS (TS, 1)0" 1" THEN 440 
0165? :?:?"EMP #"; LEFTS(AS,37) 

0170 T-0:INPUT "SUBMIT BY TIME CARD OR TOTAL <C OR T)",DS 

0)75 Tl-0 

0180 IF DS-"T" INPUT "TOTAL HOURS WORKED ",T:GClTO 310 
0190 IF DSO"C" GOTO 170 

0200 ? "ENTER TIME CARD DATA IN THF FOLLOWING FORMAT:":? 


0290 IF DS—"S" DS-"":GOTO 320 
0300 IF DS-"E" DS-"" GOTO 320 
0310 A=VAI ("0"+DS>:DS-MIDS(TS,A*13+l,13) 

0320 A-VAI ("0"+M1DS(BS,54,7)) 

0330 DIGITS- 2‘?#Z» TAB(74);RIGHTS(OS+STRS(A), 15); 

0335 ? #Z.TAB(91);DS(1>:D1GITS-0 

0340 ? #Z,TABC7);MIDS(AS,68, 30); " "; MIDS(BS, 2, 11); " "; MIDS(BS,23,8); 

0350 A-VAL("0"+MIDS(BS, 40, 7)) : DIGITS-2: DS-RIGHTS<OS< STRS(A), 15): DIG1TS-0 
0360 ? #Z,T AB(64);RIGHTS < DS, 10); : A-VAL("0"+MIDS(BS,61,7)) 

03/0 DIGITS- 2: ?#Z, RIGHTS(GS+STRS ( A), 15); : D1GITS-0 
03/5 ? #2, " ";DS(2); " " ; TAB(127); MIDS(CS,22,2):?#Z 
0380 L-L+4 IF L>58 GOSUB 9000 

0390 NEXT X 

0400 ('LOSE #12: CHAIN MAIN 

9000 ? #Z, CHRS(12):P-P+1:?#Z," PAGE ";P 

9010 ? #2,TAB(L1-LEN(HS(O)>/2); HS(O):?#Z» " FED EMP # "; 

9020 ? #Z,HS(3);TAB(L1-LEN(HS(1))/2);HS(1) 

9030 ? #Z, " STATE EMP # " ; HS(4); TAB(L1-LEN(HS(2))/2>;HS(2) 

9040 ? #Z,TAB(LI-LFN(HS(5))/2);HS(5):?#Z 

9050 ? #2, TAB<40>;"MAR STAT DATE HIRED DOB "; 

9060 ? #Z. " DEDUCTIONS DEDUCT IONS"; LEFTS(OS+OS,22); "OCC RISK" 

9070 ? #Z. "EMP # NAME & ADDRESS";TAB(40); "S S #"; 

9080 ? #Z,T AB(52); "LAST PAID PAY RATE" ; TAB(79); 

9090 ? #2, "AMOUNT";TAB(95); "TITLE"; LEFTS(OS+OS.24); "ALLOW 
9)00 ? #Z L-10 RETURN 


PROGRAM 12 

0010 REM CHIO. BAS WRITTEN 3/23/78 BY DAVE GARDNER 
0020 STRING- 128:?CHRS(26) DIM ES(3), DS<2) : LINE-0 
0075 0S-" 

0030 OPEN #17, MASTER FOR UPDATE 
0040 FIELD #12, AS-92,BS-104, CS-59 / 

0080 DATA "1007052C0MPANY NAME" 

0090 DATA "1053092C0MPANY ADDRESS" 

0100 DATA "2001040C1TY, STATE, $< ZIP" 

0110 DATA "2041072FEDERAI EMPLOYER #" 

0120 DATA "2073104STATE EMPLOYER #" 

0130 DATA "3001042BANK NAME" 

0140 DATA "304305IF1RST CHECK #" 

0305 DATA "" 

0310 DS<0)-LEFTS(BS, 19) : DS(O)-MIDS(AS, 88)+DS(O) 

0315 DS(1)-MIDS(BS,20,32):DS(2)-MIDS(BS,52,32) 

0320 FOR X«0 TO 2:FOR Y-LEEN<D*(X)) TO 1 STEP-1 
0325 IF M1DS(DS(X), Y, 1)-" " NEXT Y 
0330 DS(X)-LEFTS(DS(X),Y) NEXT X 
0340 ? CHRS(26) 

0410 GET #12 

0450 ES(1)-AS:ES(2 >-BS ES(3)-CS 

0460 RESTORE :? CHRS(26): C-0 

04/0 READ AS IF AS-"" THEN 530 

0480 C-C+i:?C;:IF MIDS(AS,8.1)” M S" THFN 500 

0490 ? MlDS(AS, 8); : GOTO 510 

0500 ? DS(VAI (MIDS(AS, 9) ) ); 

0510 IF C/7 : * INT(C/2) ?: GOTO 470 
0520 ? TAB(40); GOTO 470 

0530 ? :?:INPUT "ITEM# TO CHANGE (O TO EXIT)",A 
0540 IF A-0 THEN 6/0 

0550 IF A >0 IF A<C+1 IF A-INT(A) THEN 570 
0560 GOTO 530 

0570 RESTORE FOR Al-1 TO A READ ASNFXT A1 

0580 IF MIDS (AS, 8, 1)0" 4" THEN 600 

0590 AS- LFFT S ( AS, 7 ) +DS ( VAI ( MI DS ( AS, 9) ) ) 

0600 ? "THF ";MIDS(AS,8);" WAS "; 

0610 P8-VAL(LEFTS(AS, 1 ) ) : KS-ES(P8> P8-VAL ( MIDS ( AS, 2. 3) ) 
0613 LS—MIDS(AS,5,3) MS=M1DS(AS, 2,3) 

0615 ? MIDS(KS,P8,VAL(LS)—VAL(MS)+1) 















0620 INPUT "IT WILL NOW BF", B* 

0630 L*-‘LEFT * < A*, 1 ) M*^=MID*( A*, 2,3) CS— LEFTS ( E* (VAL ( L*) ), VAL(M*)-1 ) 
0640 M*-MJD*(A*. 5, 3) : D*-MID* ( E* ( VAL ( L* ) >, VAI.(M*) + i ) 

0650 K*-LFFT*(0*, VAL(MID*(A*, 5, 3) )-VAL(MTD*<A*, 33) )+l-LEN(B*) 

0655 B*=B*iK* 

0660 E* ( VAL (LEFT* (A*, 1 ) ) > =C*+B*>U*: GOT 0460 
0670 A*==E*( 1 ) : B*-E*<2): C*-E*(3>: REWRITE #12 

0680 CLOSE #12:CHAIN MAIN 


PROGRAM 13 


001 0 
0020 
0022 
0030 
O04G 
0050 
0060 
00/0 
0080 
c >090 
OlOO 
01 ) 0 
0)20 
0130 
U1 40 
0 1 50 
0160 
0170 
0180 
0190 
0200 
07 1 0 
0220 
0230 
0740 
0750 
0260 
07/0 
0780 
0790 
0300 
0310 
0320 
0330 
0340 
0350 
0360 


KEM CHIi RA?i WRITTEN 3/23/78 BY DAVE GARDNER 
STRING- 128 'CHR*(26) DIM E*<3) LINE-0 
0 *-" 

DIM F*</5> C-0 

REAL A* IF A*<>"" K$(C)-"Ai C-C+l GOTO 40 
FOR XO TO C-l 

G**LEFT*(STR*(X+i >♦" "+U*. 5)+MID* ( F* ( X ) * 8) G*-LEF T*(G*+0*. 39) 
G*<X/2)=GS<X/2)+G* NFXI X 
OPEN #17, MASTE1 FOR UPDATE 
FIELD #12, A*-87, B*-96. C*-72 
DATA "1007038BANK ADDRESS" 

DATA "1039044LAST EMPLOYEE #" 

DATA "1045050# OF PAYROLLS RAN YTD" 

DATA "1051053# OF EMPLOYEES ON FILE" 

DA I A "1054060CUMULATIVL F1CA WITHHELD" 

DA I A "106106/CUMUl ATIVE FIT WITHHELD" 

DATA " 1068074CIJMIJLAT IVE SIT WITHHELD" 

DATA "1075080CHECK CHARGING RATE" 

DATA "1081087# OF CHECKS PRODUCED MTD" 

DATA "2001037DEDUCT1ON #1 TITLE" 

DATA "2033064DEDUCT ION #? TITLE" 

DATA "2065096DEDUCTION #3 TITLE" 

DATA "300201OPERIOD ENDING DATE" 

DATA "3059071TABLE #3 TITLE" 

DATA "301 1019CIJRRENT CHECK DATE" 

DATA "3033045TABLE #1 TITLE" 

DATA "3026032FEDERAI. F1T,FICA DEPOSIT LIMIT" 

DATA "3046058 1 ABLE #2 TITLE" 

DATA "3020025CURRENI PAYROU TYPE (123MQY)" 

DATA "" 

GET #12 

E* ( 1 ) —A* E* (2 ) -B* E* < 3) «C* 

? CHR*(26) 

FOR X^O TO C/2:? G*(X) NEXT X 
? :7:INPUT "ITEM# TO CHANGE (O TO EXIT)",A 
IF A-0 THEN 500 

IF A >0 IF A<C+1 IF A-INI (A) THEN 380 


0370 GOTO 340 

0380 A1 --A A*-F * (A l -1 ) 


0390 IF MID* (A*, 8, 1 )0"4" THEN 410 
0400 A*~l FPT*<A*, 7 ) +D* ( VAL < MID* < A*, 9) ) ) 

0410? "THE ";MID*(A*,8);" WAS 

0420 P8-VAI. < LEFT * ( A*, 1 > > : K*^E*(P8> : F*8-VAL < MID* ( A*, 2, 3) ) 

0430 L*-M1D*(A*,5,3):M*-N1D*(A*,2, 3) 

0440 ? MID*(K*, P8. VAI ( L* ) -VAL ( M* ) ♦ 1 ) 

0450 INPUT "IT WILI NOW BE", B* 

0460 L*=LLFT*(A*, 1> M*-MIH* < A*,2,3):C*-LEFT*(E*<VAI <L*>),VAL(M*)-1) 
04/0 M*—IT ID*(A*,5,3): D*-M1D*(E* (VAL< L*)>,VAL(h*)+l) 

0480 B*-LEFT * < B*+0*,VAL(MID*(At,5, 3))-VAL<MID*(A*, 2, 3)) + i) 

0490 E*( VAI (LEFT* (A*, 1 ) ) > «C*-» B*+D*: GOT 0320 

0500 A*~E* ( 1 ) : B*^E* ( 2 ) C*^E* ( 3 ) 

0510 REWRITE #12 

0520 CLOSE #12 CHAIN MAIN 

0010 REM INIT DAS WRITTEN 3/14/78 BY DAVE GARDNER 
0015 STRING- 128 


... ■ .....__________-KB-—— 

(•310 FIELD #13, A*—100, B*-104, C*-51 

0320 FOR X“0 TO 8 READ D*(X) NEXT X 
0330 ? CHR*(26) 

0340 INPUT "EMPLOYEE # (0 TO EXIT)",A 
0350 IF A=0 THEN 610 
0360 Xi«Nl/2: X2--X1/2 

03/0 SET # 12—X 1 : GET #12: A1 --VAL ( LEF T * ( A*, 5) ) 

0380 IF A1 “-A THEN 440 
0390 IF A1> A THEN 410 
0400 X1--X1+X2: GOTO 470 

0410 X1-X1—X2 

0420 X7-X2/2 IF X2> 2 THEN 370 

0430 ? CHR* (7) i "EMPLOYEE NOT F0UNF1" GOTO 340 

0440 A1-“LGC#12 SET#13^A1 GET#13: G* ( 0 ) - A*: G* ( 1 )^B* G*(2)-C* 

0450 ? CHR*(76) i "DO YOU WISH TO CHANGE" ? 

0460 FOR X“0 TO 3? X+ 1 i TAB ( 5); E* ( X ); " INFORMATION":?: NEXT X : 

0470 INPUT "SELECTION (O TO EXIT)",A IF A^O THEN 600 

0480 IF A>0 IF A<5 IF A-1NT(A) THEN 495 

0490 GOTO 470 

0495 A-A-1 

0500 ? CHR*(26)»"DO YOU WISH TO CHANGE" ? 

0510 FOR X-l TO LEN(F*(A))/8 

0520 ? X; TAB(5); E*(A); " "; D*(VAL(MID*(F*(A), X*8-7, 1))):NEXT X 
0530 ? INPUT "SELECTION (0 TO EXIT)",A1 IF Al-0 THEN 450 
0540 D*^E*(A) + " " + D*(VAL(MID*(F*<A), Al*8-7, 1 ) ) ) 

0550 X 1 - VAI (MID*( F** ( A >, Al*8-5, 3) ): X2-VAL( MI D*( F* ( A ), A 1*0-2, 3) ) 
0560 X3-VAI. ( MID* (F* (A ), A1 *8-6, 1 ) ) • ?"T HE ";D*;" WAS 
0570 ? MID*(G*(X3),XI,X2-X1+1) INPUT "IT WILL NOW BE",A* 

0580 A*-—LEF T*(AS+O*. X2-X1+1 ) B*-LEFT*(G*<X3). XI —1) 

0590 C*-MID*(G*(X3),X2*l):G*(X3)«B*4A**C* GOTO 500 

0600 A*-G*(0):B* -G*(1):C*-G*(2):REWR1TE #13 GOTO 330 

0610 CLOSE # 12. # 13 CHAIM MPTTN 


PROGRAM 16 

00)0 KEM PWR1 RAs WRITI P N 3/22/78 BY DAVE GARDNEFc 
0020 ST k I NG- 1 28 LINE-0 *'CHR* ( 26) Z - O P- 0 L1 ^- 66 
0022 0*-" 

(•0/3 L INE-" O 
0025 Z —4 

0026 INPUT "WHEN THL PRIN IER IS RFADY PRESS RETURN",A* 

007/ CHR* (26) 

0030 OPT N #10, MASTER FOR INPUT 
0040 FIELD #i0, A*-92. B*^104, C*^59 

0050 GET #10 CLOSE #10 DIM H*(6),1(5) 

OO60 H* ( O ) - MID* ( A*, 7, 46) H*( 1 )-MlD*(A*, 53, 40) 

0070 H*(2)-LEFT*(B*, 40) H*(3)-MID*(B*, 41,32 ) 

0080 H*(4)«MID*(B*,73) 

0085 X *-K* IGHT* ( C*, 8 ) 

0090 OPEN #11, MAST El FOR INPUT 

(•100 FI El D #11, A*-119, B*-96, C*^40 

0)10 GET #11 CLOSE#11 H*(5)-X* H*(6)-MID*(B*.66,8) 

0120 N1 -VAI. ( "0"+MI D* ( A*, 51.3) ) Y1-VAL( "0"*MID*(A*, 45. 6) ) 

0130 OPEN #17, PERFIL FOR INPUT 
0140 FIELD #12. A*^i03, B*^103, C*^49 

0150 OPEN #13, EMPHST FOR INPUT 
0160 FIELD #13, D*-100, E*^104, F*-51 

01/0 GOSIJP, 9000 

0180 POR X^l TO N1 GET#12 IF MIU* (B*. 23, 8) OX* THEN 320 
0190 GET #13 FOR X1-:5T01 S I EP- 1 IP MID* ( A*. X 1, 1 )«« " NEXT XI 
0195 G*-LPFT*(A*,XI) 

0700 ? #Z,RIGHT*(0**G*,6>#" " , MID*(A*,6, 32); 

0210 A--VAI. ( "0"+MID*< B*. 13, 1 ) ) ON A*1 GOTO 220,230,240 

0220 A=VAL("0"+MID*(B*, 97))+VAL("0"*LEPT*(C*.7)) G*^STR*(A) : GOTO 250 

0230 G*—"SALARY": GOTO 250 

0240 G*-"Cr.ihlSN" 
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0017 LEU 0S-" " REM 40 SPACES 

0020 CREATE MASTER RE'C- : 253» EILE-1 

0030 OPEN #10. MASTER FOR UPDATE 

0040 FIELD #10. AS-100,BS-100, CS-55 

0050 GET #10: AS-"PAYRGL":REWRITE #10:CL0SE#10 

00AO CREATE MASTE1 RFC—255, FILE-1 

0090 CREATE PERFIL RFC-255,FIIE*300 

0100 CREATE EMPHST REC-255. FILE-300 

0110 OPEN #11, MAST E1 FOR UPDATE 

0120 hi ELD #11, AS-100. B*^100, CS-55 

0130 GET #11 AS—" PAYROO "+LEF’TS ( " "■♦■OS, 32 )■♦'"000000000000000" 

01 40 AS-AS-* " OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOQO " 

01 GO REWRITE #11 CLOSE#11 
0170 CREATE PAYTAB RFC-10, FILE*276 
0180 CREATE PAYCTL RFC-100,FILE-1 
0190 CHAIN INI 1 

PROGRAM 14 

000) REM START - BY HAVE GARDNER- 

0010 STRING- 12h: LINE--0 
0070 OPEN #11, MASTER FOR UPDATE 
0030 F1FL1* #11, AS-100.BS-100. CS-55 
0040 ? CHRS(26) GET #11 

0030 ? INPU1 "PLEASE ENTER IN TODAY'S DATE (Mh/DO/YY)",QS 
0060 IF MIDSIQS,3.1)<>"/" THEN GO 
00/0 IF MIDSIQS,6,1><>"/" THEN GO 

0080 M-VAI ( "0"+QS ) D-VAI.I "0"+Ml DS ( QS, 4 ) ) Y-VAL ( "0"+MIDS ( OS, 7) ) 

0090 IF MO3 IFM>0 IF D>0 IF D<32 IF LEN(QS)-8 THEN HO 
OJOO GOTO GO 

0110 CS-LEFT S(CS,47)+QS 
0120 REWR1IF #11 CLOSE #11 
0130 CHAIN MAIN 


PROGRAM 15 

0010 REM CHITS HAS WRIT TEN 3/14/78 BY DAVE GARDNER 

0020 STRING- 128 LINE-80 'CHRS(26):DIM DS(8),ES(3),FS(3),GS(2) 

0025 0S-" " 

0030 OPEN #11. MAST E1 FOR INPUT 

*)040 FIELD #11, AS— 100, BS^lOO, CS-55 

0050 GE T #11 CLOSE #11 NL- VAI ( "0"+MI DS ( AS, 51,3 ) ) 

0060 ES(O)^"WEEKLY" 

00/0 ES(1)~"MTD" 

0080 ES(2)—"QTD" 

0090 ES(3)="YTD" 

0100 DATA "FUTA" 

0110 DATA "SUTA" 

0120 DATA "RFGULAR PAY IN S" 

0130 DATA "OVERTIME PAY IN S" 

0140 DATA "EM " 

01GO DATA "SIT" 

0160 DATA "FICA" 

0170 DATA "BONUS IN S" 

0180 DATA "EXPENSE RE1MB IN S" 

0190 FS(0)“"2000100730008014400150215002202860029033" 

0200 FS(1)^"20066072300/3079400800863008709360094100" 

0210 FS ( 1 )--ES< 1 )+ "7100100781008014" 

0220 FS(2)-'"01015021 1 10220282102903631037044 " 

0230 FS(2)~ES < 2) + "410450515103205861059063" 

0240 FS < 2)«FS(2)+"710660 /381074 08i" 

U250 F S ( 3) " 010820881 10890952109610532001009 " 

0260 FS(3)«FS(3)+"420100165201702362024030" 

0270 FS < 3) -~FS < 3 ) + " 7203103782038044 " 

0280 OPLN #12, PERFIL FOR INPUT 
0290 FIELD #12, AS^IOO. BS^100, CS-55 

0300 OPEN #13, EMPHST FOR UPDATE 


0250 ? #2,RIGHT*(OS+GS,8); " "; T<0)-T(0)+VAL("0"+GS) 

0260 A=VAI ("0"+LEr IS(DS, / )) G-A DIGITS-2 GS-RIGHT S(OS+STRS(A), 10) 
0263 T <1) - * I(1)+A 

0270 A~VAI.( "0"+MlDS< DS, 8, 7) ) : G-G+A T C 2 ) —T < 2 ) +A 
0280 ? #Z.GS, GS-RIGHTS(OS+STRS<A),10) 

0285 ? #Z,GSi 

0287 A—VAL("O"+MIDS(CS,8,7)):T(3)«T(3)+A 
0290 G-G+A ^#Z, RIGHTS(OS+STRS(A), 10) + ""; 

0295 ? #/, RIGHTS!OS+STRS(G), 10) + ,,H i :T<4)-T(4)+G 

0300 A-VAI ("0"+MIDS(CS, 15,7)) >#Z, R1GHTS<OS+STRS(A), 10) ; ?#Zi 

0301 T(5)«T(5)+A 
0305 DIGITS- 0 

0310 L-L+2:IF L>59 GOSUB 9000 

0320 NEXT X 

0330 FOR X-L TO 59 9#Z:NEXT X 
0340 ? #Z, " TOTALS "i 

0345 DIGITS-- 0 ?#Z. TAB ( 44 ) ; RIGHT S ( OS+ST RS < T ( 0 ) ), 5 ); 

0347 DIGITS- 2 
0350 FOR X=1 TO 5 

0352 ? #Z.TAB(X+10+40);RIGHTS(OS+STRS<T<X)),10); 

0355 NEXT X:?#Z:D1G1TS-0 
0360 CLOSE #12,#13:CHAIN PWR2 

9000 ? #Z. CHRS( 12): P-P+T ?#Z. TAB( 11 >; "PACE "iP 
9010 ? # Z , T AB (LI -LF.N ( HS ( O ) ) /2 ) ; HS ( 0) 

9020 ? #Z. "FEDERAL EMPLOYER # "; HS(3); TAB(L1-LEN(HS<1))/2);HS(1), 

9030 ? #Z, TAB(87); "CHFXKS ARE DATED "iHS<5> 

9040 ? #2, "STATE EMPLOYER # "; HS ( 4 ) ; T AR(L1—LEN(HS (2))/2);HS(2) 

9050 ? #Z,TAR(58);"PAYROLL REGISTER" ; TAB(87>; "YTD PAYROLL # 

9060 9 #Z» Y1: ?#Z» TAB(53); "FOR PERIOD ENDED "; HS(6):?#z 
9070 ? #Z, " EMP # NAME";TAB(45); "HOURS REGULAR "; 

9080 9 #Z. "OVERT IMF BONUS GROSS WAGES EXPENSE RE IMB " 

9090 9 #z, I AB (55); "PAY";TAB(66); "PAY"; TAB (77 ); "PAY" 9#z 
9100 L= 1 1 RF.TURN 

PROGRAM 17 

00JO REM PWK‘4 BAS WRITTEN 3/22/78 BY DAVE GARDNER 
noil REM ADAPTED BY RANDY JACKSON—PERSONAL COMPUTER PLACE 
oo/o STRING- i 28 LTNE^O 9CJHRS(26) Z-0 P-0 L1- 66 
0022 OS-" 

0023 Z-4 

0030 OPEN #10, MASTER FOR INPUT 
0040 FIELD #10. AS-92, BS^104, CS-59 

0030 GET #10 CLOSE #10 DIM HS(6),DS(4> 

0035 HS(0)-MIDS(AS, 7, 46) HS(1)-MID*(AS, 53. 40) 

0060 HS( 2)—LEM S(BS. 40 ) HS ( 3)-MI DS ( BS, 41,32 ) 

0063 HS ( 4 ) ~M I DS ( BS, 73) Ci---VAL( "0"+Ml DS ( CS, 43. 9) ) : XS-RIGHTS < CS, 8) 

OO/0 FOR X - 1 104 FORY -LEN( HS ( X ) ) TO 1ST EP- 1 : IF MI DS ( HS ( X ), Y, 1 ) "NEXTY 

OU80 HS( X ) ■ LEFTS ( HS ( X ). Y) NEXT X 

0090 OPEN #11. MAS I E 1 FOR INPUT 

0100 FIELD #11, AS-119, BS-96. CS^40 

Olio GET #11 CLOSE# 1 1 HS(5)-XS HS ( 6)- : M1 DS ( BS, 66, 8) 

Ol 13 DS ( 0 ) —"PAY " DS( 1 ) -=*MlDS(AS, 88) DS ( 2 ) -LEF T S ( BS, 32) 

0114 DS ( 3) ~MI DS ( BS, 33. 32 ) DS ( 4 ) --"SPECIAL DEDUCTION" 

0113 FOR 1-1 TO 4 FORY-LEN(DS(T))TO1 STEP-1 
0117 IF MI DS ( DS ( T ), 4 , 1 ) -•" "NEXT Y 
0118 DS(T)-LEFTS(DS(T),Y)+" "NEXT 1 

0120 N1 - : VAL ( "0"+MlDS( AS, 31,3) ) Y1 - VAL ( " O " +MI DS ( AS. 45, 6) ) 

0)30 OPEN #12. PERFIL FOR INPUT 

0140 FIELD #12, AS^103, BS^103, CS-49 

0150 OPEN #13. EMPHST FOR INPUT 

0160 FIELD #13, DS^lOO, ES^104, FS^51 

0)70 X1-O GOSUB 9000 

0175 SET #12-1:SET #13»1 TI-0 

0)80 FOR X-:) TO N1 

0185 GET #12 IF MI DS ( BS. 23, 8) OX* THEN 370 
0187 GET #13 


Branched to Page 106 






INTERFACING WITH 
COMMERCIAL SOFTWARE 


By Eric D. Savage 


The microcomputer market has ex¬ 
perienced a tremendous proliferation 
of commercial software in the last year. 

Many of these programs attempt to 
be extremely general in application— 
but this means that they are not really 
suited for specific applications. If the 
source code was available for these 
programs, they could be modified to a 
specific application. But there are two 
problems inherent in modifying 
commercial software. First, much 
(if not most) of the commercial 
software is being supplied in a ma¬ 
chine readable intermediate lan¬ 
guage (such as the INT files of 
CBASIC I & II). Second, 
modifying existing code can 
be extremely trying as what 
appears to be a minor change in 
the code may affect the entire effectiveness of the program. 

One answer to customizing commercial software is to create 
subsidiary programs which duplicate exactly the functions of 
the entry programs in the commercial software. These pro¬ 
grams can then make files that are used by the remaining 
programs in the commercial software. This method has been 
used by the author to customize two accounting systems pro¬ 
duced by Structured Systems Group for specific applications. 

A mail order company desired to use a micro to handle in¬ 
voicing both for wholesale customers and retail mail order 
customers who sent in magazine clippings. Some of the re¬ 
quirements of the system were as follows: 

•The system had to have the capacity of printing the specific 
invoice that the company desired. 

•The system had to have a single entry point both for the in¬ 
voicing and for entrance into the mailing list. . 

•By reading the catalog data into memory, the input of an 
item number and quantity would enable the unit price, item 
description, total price, and weight of the item to be deter¬ 
mined for printing or processing. 

•The checks received were recorded for use in printing a 
bank deposit slip. 

•Shipping charges had to be computed for UPS shipping and 
US Mail for light packages. The weight of packing materials 
had to be added into the net weight of the purchases. 


In order for this program to effective¬ 
ly interface with Structured Systems 
Group (SSG) Accounts Receivable 
programs, the only files which had 
to be exactly duplicated were the 
cash batch file and the invoice batch 
file. SSG supplies in the documen¬ 
tation a complete breakdown of 
the file structure. Thus the dupli¬ 
cation was possible without a ma¬ 
jor analysis of the file structure. In 
order to use the name and ad¬ 
dress program, a file was cre¬ 
ated by ORDERENT which 
was in the NAD file format. 
Each day’s customers are 
moved from the daily new 
customer file, NEWCUST. 
NAD, to customer files for 
mailing list applications. 

ORDERENT is presently being used by the mail order 
company to process both the wholesale orders and the retail 
mail order requests. A sample of the invoice being used is 
shown in Figure 1. Among the features of the program are 
the ability to include standard messages on the invoice and to 
decode the shipping information. In the case of the example, 
the shipping code is located directly above the addressee. 
The first digits indicate the United Parcel Service zone, the 
next the weight, and the final digits are the UPS charge in cents. 

The BILL TO: box is coded with the magazine the response 
came from. Thus the response to different issues and 
magazines can be judged so that advertising dollars can be 
directed to the magazines creating the largest response. 

In excess of one hundred orders per day are presently be¬ 
ing processed through the computer in a few hours. The 
single entry point creates the invoice, the audit trail, the mail¬ 
ing list update, the sales report, information on the commis- 
sionable sales of wholesale dealers, and the accounts re¬ 
ceivable batch. 

By using three SUBMIT files, the daily operations needed 
to maintain the accounts receivable system have been re¬ 
duced to easily remembered sequences: SUBMIT DAILY; 
SUBMIT DAILY2; A and SUBMIT NAD. These SUBMIT 
files are designed to assist the operator by containing the ex¬ 
act program sequences as well as file deletions required. 




CHECK WRITING 

The second application was the creation of a check writing 
program which would interface directly with the SSG General 
Ledger programs. SSG’s General Ledger is very effective for 
producing income statements and balance sheets, but it is 
somewhat cumbersome for entering data as all items have to 
be entered separately into the debit and credit accounts. The 
client desired to have the program automatically debit and 
credit accounts and print checks including a detailed stub. 



Thus if a check was being used to pay several invoices, 
and expenses were charged to different accounts such as ac¬ 
counts payable and insurance expense, for example, the 
check printing program could detail all the information on 
the stub at the same time that it was being credited to the ap¬ 
propriate general ledger accounts. 

A listing of CHECKWRT is provided. CHECKWRT is writ¬ 
ten in CBASIC using the full capabilities of Version I only, 
and therefore does not contain some of the enhancements 
that are available in CBASIC II. The compiler listing supplied 
is the CBASIC II listing. The listing has numerous remarks 
statements in order to direct the reader as to the function of 
the various modules. A major advantage of CBASIC is that 
these remarks do not increase the length of the intermediate 
language file created by the CBASIC or CBASIC II compile. 

The program is designed to be smart in respect to several 
functions. The date is required to be reasonable, i.e. no 13th 
months or 30th days in February. 

The entire chart of accounts is read into memory so that 
each account number entered can be verified against the ex¬ 
isting accounts. SSG uses this protocol: account numbers 
ending in zero are heading accounts numbers, which do not 
have balances associated with them. Therefore, the program 
treats heading accounts as if they did not exist. 

The main program consists of subroutine calls. Thus the 
program can be modified very easily for a check with the stub 
on the top, as opposed to the existing design of bottom stubs. 

The program logic is designed to write checks up to $20,000. 
This is for two reasons. First, the length of the space available 
for writing out the amount in words is limited. 

The program design is based upon some intelligence on 
the part of the operator. The perfect program should be so 
well designed that even a monkey randomly striking keys 
should not be able to crash the program. This program, 
however, assumes that the operator has examined the opera¬ 
tor’s manual and that the operator has some experience in 
running computer programs. 

The interface with SSG General Ledger is made in the fol¬ 
lowing manner: 

1. All SSG General Ledger Data Diskettes have a file called 
PGLPAR.101 which contains the following information 
which is needed to operate the files: 

Field Name Position Remarks 

PAR.FILE.SUFFIX$ 2 Used to Identify Files 

PAR.CO.NAMES 3 Displayed on Screen 


2. The PAR.FILE.SUFFIX$ appears as the last two letters of 
the primary file name on ail other files on the General 
Ledger Data Diskette. Thus the extraction of this data 
enables the program to open the chart of account file and 
the invoice batch file. 

3. The existence of an invoice batch is checked by using the 
SIZE function of CBASIC. If the invoice batch exists, the 
file is opened, if the file does not exist, or if it is an empty 
file, a new file is created. A message is placed on the 
screen to that effect. 

4. The journal batch is read to the end to move the file pointer 
to the end of the existing data. Thus new entries will be 
appended to the file. 

5. The chart of accounts file is opened and all the accounts 
are read into arrays. The program is designed to handle 
up to 300 accounts (the maximum presently allowed by 
SSG) in the computer memory. 

6. The final interfacing is to print the data to the journal 
batch file. 

When the console displays the prompt requesting the 
name of the payee, there exist several options for the opera¬ 
tor. The program can be terminated by either hitting a return 
or an escape code sequence (ESC 7), a new payee can be 
entered, (which is the normal sequence for continued pro¬ 
cessing) or the parameter change subsystem can be entered 
by using the escape code sequence (ESC 9). 

The parameter change subsystem was created because of 
a user request. He stated that if he failed to align the checks 
properly, he definitely did not desire to wait for 250 accounts 
to be reread from the disk as the program is restarted. The 
parameter change subsystem therefore allows the following 
options: 

•Changing the check numbering 

•Reprinting the check 

•Input of a new date 

•Charging the number of the cash account 

Entrance into the parameter change subsystem is made by 
using an Escape code sequence (ESC 9) at the time that the 
console prompts for a new payee. 

The writing of the accounting data out to the journal batch 
is specifically designed for checkwriting operations. The 
form of the file print statement exactly coincides with that 
specified by the SSG General Ledger program. The refer¬ 
ence field, however, is specially designed. For the detail ac¬ 
counts (i.e. those other than the case account), the reference 
field consists of the check number and the specific reference 
entered by the operator. In the event that no definite refer¬ 
ence field was entered, the ledger comment defaults to the 
check number and the name of the payee. 

The remarks in the reference field are the most critical item 
for tracing back transactions through the general ledger. 
With hundreds of checks being printed during a given month, 
the check number becomes the most important cross 
reference key. Thus the check number is included in the 
reference field of all the parts of the transaction. 

Both CHECKWRT and ORDERENT are examples of how 
commercial software can be modified to specific tasks. The 
ORDERENT program enables a mail order firm to process 
not only their invoicing and accounts receivable with a single 
entry, but also to update their mailing lists with new custom¬ 
ers using the original entry data. The CHECKWRT program 
bridges a gap in the SSG General Ledger system which 
made the system inconvenient to use for miscellaneous 
checks. By this specialization of commercially available pro¬ 
grams, the consultant enables the end user to have the ad¬ 
vantages of customized programs worth thousands of man 
hours of programming without having to pay for a total 
custom package. □ 

Program Follows 
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PROGRAM LISTING 


1 : 

Ren 



2: 

Rem 

« 


3: 

REM 

• CHECKWRITER PROGRAM 

« 

4: 

REM 

• BY 

ft 

5: 

REM 

• ERIC D. SAVAGE 

ft 

6: 

REM 

« 

« 

7: 

REM 

ft 

ft 

8: 

REM 

• 

• 

9: 

REM 

« 

ft 

10: 

REM 

* NOVEMBER 1978 

• 

11: 

REM 

* REVISION 3 JANUARY 1979 

11 

12: 

REM 



13: 

rem 



14: 

15: 

16: 

rem 



rem- 

-Variables coincide with names in SSG 

General Ledger 

17: 

rem 



18: 

rem 



19: 

DIM 

COA.DEPT.NO*(300), COA.ACCT.NO*(300) 


20: 

DIM 

CO A.ACCT.NAME*(300), acct.name*(20) 


21: 

DIM MONTH*(12), lengthm(12) 


22: 

DIM DORC*(20), ACCOUNT*(20), DEPT*(20), REMARKS*(20) 


23: DIM LEDGER.C0MMENT$(20) 

24: DIM DCC0DE$(6), AMOUNT(20),C0MMENT$(20) 

25: rem 
26: rem 

27: rem-Code for Normally Debit or Normally Credit— 

28: rem 
29: rem 

30: DATA C,D,D,D,D,D 
31: FOR 1=0 TO 5 
32: READ DCC0DE$(I) 

33: NEXT 
34: rem 
35: rem 

36: rem This Program is written as a series of subroutines 

37: rem which can be rearranged as desired to create the check format 

38: REM THE FOLLOWING CONVENTIONS ARE USED 

39: REM 

40: REM ESC 3 MEANS BACK UP ONE ENTRY 

41: REM ESC 7 MEANS STOP 

42: REM ESC 9 MEANS GOTO THE PARAMETER CHANGE SUBSYSTEM 

43: REM THESE ARE ONLY USED WHEN APPROPRIATE 

44: Rem 
45: rem 


106: if end #2 then 100.4 


107: OPEN COA.FILE$ RECL 51 AS 2 

108: PRINT "PARDON ME WHILE I READ IN THE GENERAL LEDGER ACCOUNTS" 
109: i=0 

110 : 100.96 1 = 1+1 

111: READ #2, I; dum$, COA.DEPT.NO$(I),COA.ACCT.NO*(l) ,\ 

112: C0A.ACCT.NAME*(I) 

113: No.of.accounts=no.of.accounts+1 

114: goto 100.96 

115: 100.4 CLOSE 2 

116: RETURN 

117: 200 REM 

118: REM 

119: REM-SMART DATE ENTRY ROUTINE- 

120: REM 
121: REM 


122: DATA JANUARY, FEBRUARY, MARCH, APRIL, MAY, JUNE 
123: DATA JULY, AUGUST, SEPTEMBER, OCTOBER, NOVEMBER, DECEMBER 
124: data 31,29,31,30,31,30,31,31,30,31,30,31 
125: i=0 

126: WHILE I LT 12 

127: 1=1+1 

128: READ M0NTH$(I) 

129: WEND 
130 : i=0 

131 : while i It 12 
132: i=i+1 

133 : read lengthm(i) 

134: wend 

135: gosub 900: rem Routine inputs the cash account number 

136: Input "What is the Starting Check Number? check.number 
137 : check.number=check.number-1 

138: 233 INPUT "WHAT IS THE DATE? (MM/DD/YY) "; DATE* 

139: REM THIS ROUTINE DECODES THE DATE 
140: X=MATCH("/",DATE$,1) 

141: M0NTH=VAL(LEFT$(DATE$,X-1)) 

142: if month gt 12 or month It 1 then goto 200.45 
143: START=X+1 

144: LENGTH=MATCH("/",DATE*,START)-START 
145: DAY=VAL(MID*(DATE*,START,LENGTH)) 

146: if day It 1 or day gt lengthm(month) then 200.45 
147: YEAR=VAL("19"+RIGHT*(DATE*,2)) 

148: RETURN 

149: 200.45 Print "Invalid Date" 

150: goto 233 


151: 300 REM 
152: REM 

153: REM-MODULE LOOKS UP ACCOUNT NAMES GIVEN NUMBER 

154: REM-RETURNS UNKNOWN ACCOUNT FLAG IF ACCOUNT NUMBER- 

155: REM-ENDS IN A ZERO OR IS NOT FOUND IN THE ROUTINE- 

156: REM-REQUIRES IDENTICAL DEPARTMENT NUMBER- 

157: REM 
158: REM 

159: Rem and Prints The Account Name on the Screen 


160: flag=0 
161: ic=0 

162: if right*(account*(i),1)="0" then 310 . 99 # 
163: while ic It no.of.accounts 
164: ic=ic+1 

165: if account*(i) ne coa.acct.no$(ic) then 310 
166: if dept*(i)=coa.dept.no*(ic) then 200.2 
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46: rem 

47: Rem The General Ledger Data Disk Must be On Drive B 
48: gosub TOO: Rem This Section Opens The General Ledger Files 

49: rem 
50: rem 

51: rem-Sub 200 Inputs the Date, Starting Check Number- 

52: rem 
53: rem 

54: gosub 200 

55: 1000 gosub 400: Rem This section Determines the Data for the Check 
56* 50.1 input "When Check is Ready Hit Return ";line q$ 

57: gosub 600: Rem This section prints the actual check 

58: gosub 500: Rem This section prints the accounting data on the stub 

59: gosub 750 :rem this section post the entry to the GL Batch 

60: goto 1000: Rem a return to the begining for another check 

61: 800 Rem This Section Finishes The project 

62: Close 1 

63: STOP 

64: 100 rem 

65: rem 

66: rem-File Opening Procedure- 

67: rem-SSG Data Diskette Must be on Drive B- 

68: rem 
69: rem 

70: X=SIZE("B:PGLPAR.101") 

71: IF X GT 0 THEN 100.1 

72: PRINT "ERROR GENERAL LEDGER DATA DISKETTE " 

73: PRINT "MUST BE ON DRIVE B" 

74: INPUT "INSERT PROPER DISKETTE AND RETURN";LINE Q$ 

75: INITIALIZE: REM FOR CBASIC USE CALL 264 

76: GOTO 100 

77: 100.1 OPEN "B:PGLPAR.101" AS 1 

78: READ #1; PAR.CO.NO*,PAR.FILE.SUFFIX$,PAR.CO.NAME$ 

79: print tab(10); par.co.name! 

80: CLOSE 1: REM PARAMETER FILE NO LONGER NEEDED 

81 : REM 
82: REM 

83: REM-BATCH FILE OPENING PROCEDURE- 

84: REM-CHECK FOR EXISTENCE, OPEN OR CREATE AS APPROPRIATE— 

85: REM 
86: REM 

87: BATCH.FILE$="B:PGLGJB"+PAR.FILE.SUFFIX$+".100" 

88 : X=SIZE(BATCH.FILE!) 

89: if end #1 then 100.3 

90: IF X GT 0 THEN 100.2 

91: PRINT\ 

92: "NO BATCH FILE EXISTS-ONE WILL BE CREATED" 

93: CREATE BATCH.FILE* RECL 116 AS 1 

94: GOTO 100.22 

95: 100.2 OPEN BATCH.FILE$ RECL 116 AS 1 
96: 100.22 READ #1; LINE DUMMY! 

97: rec.no=rec.no+1 

98: goto 100.22 

99: REM 
100: REM 

101: REM-OPEN CHART OF ACCOUNT FILE-*- 

102: REM-READ CHART OF ACCOUNTS INTO MEMORY- 

103: REM 
104: REM 

105: 100.3 COA.FILE!="B:PGLCOA"+PAR.FILE.SUFFIX!*".101" 


167: 310 wend 

168: 310.998 print "Account Number Does Not Exist" 
169: flag=1 
170: return 

171: 200.2 print coa.acct.name$(ic) 

172: acct.name$(i)=coa.acct.name$(ic) 

173: return 
174: 400 REM 


175: REM 

176: REM-CHECK DATA INPUT SECTION- 

177 : REM-OPTIONS FOR STOPPING AND TRANSFER TO- 

178: REM-PARAMETER CHANGE SUBSYSTEM ARE INCLUDED 

179: REM 
180: REM 


181: INPUT "WHAT IS THE NAME OF THE PAYEE? "; LINE DUMMIT$ 

182: IF DUMMIT$=""OR DUMMIT$=CHR$(27)+"7” THEN 800 
183: if dummit$=chr$(27)+"9" then 2000 
184: payee$=dummit$ 

185: Input "Address Line 1 "; line address 1$ 

186: input "Address Line 2 ";line address2$ 

187: input "Address Line 3 "; line address3$ 

188: check.amount=0 

189: i=0 

190: 400.1 REM 

191: REM 

192: REM-MODULE READS IN ACCOUNTS COMMENTS AND AMOUNTS- 

193: REM 
194: REM 

195: INPUT "ENTER ACCOUNT NUMBER "; LINE ACCOUNT.NO! 

196: IF ACCOUNT.NO$="" THEN 400.2 

197: IF ACCOUNT.NO$=CHR$(27)+"7" THEN 400 

198: if account.no$=Chr$(27)+"3" then print\ 

199: "PREVIOUS ENTRY DELETED RE-ENTER ACCOUNT NUMBER" 

200: IF ACCOUNT.NO$=CHR$(27)+"3" THEN 1=1-1 
201: IF ACCOUNT.NO$=CHR$(27)+"3" THEN 400.1 
202: IF LEN(ACCOUNT.NO$) = 4 THEN ACCOUNT.NO$=ACCOUNT .N0$+"00" 

203: 1=1+1 

204 : DEPT!(I)=RIGHT!(ACCOUNT.NO$,2) 

205: ACCOUNT!(I)=LEFT$(ACCOUNT.NO$,4) 

206: gosub 300 

207: if flags 1 then i=i-1 

208; if flags 1 then 400.1 

209: INPUT "ENTER REMARKS (FOR CHECK) "; LINE REMARKS!(I) 

210: if remarks!(i)="" then print "Account Name Used for Remarks" 
211: if Remarks!(i)="" then Remarks!(i)=acct.name!(i) 

212: INPUT "ENTER REMARKS (FOR GENERAL LEDGER)"; LINE LEDGER! 

213: LEDGER.COMMENT!(I)=LEDGER! 

214: IF LEDGER!="" THEN LEDGER.COMMENT!(I)=REMARKS!(1) 

215: if ledger!="" and remarks!(i)=acct.name!(i) then\ 

216: ledger.comment!(i)=payee! 

217: ledger.comment!(i)=str!(check.number+1)+" "+ledger.comment!(i) 
218: ledger.comment!(i)=ledger.comment!(i)+" 

219: ledger.comment!(i)=left!(ledger.comment!(i), 30 ) 

220: INPUT "ENTER AMOUNT "; AMOUNT(I) 

221: INPUT "ENTER - OR RETURN"; LINE FLAG! 

222: DORC!(I)=DCCODE!(VAL(LEFT!(ACCOUNT.NO!,1))) 

223: IF FLAG!="" THEN 400.1 

224: IF DORC!(I)="D" THEN D0RC!(I)="C" ELSE DORC!(I)="D" 

225: GOTO 400.1 
226: 400.2 REM 
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227: REM 

228: REM-DISPLAY OF CHECK DATA FOR FINAL REVIEW- 

22 9: REM 
230: REM 

231: PRIMT "THIS IS A REVIEW OF THE CHECK PRIOR TO POSTING" 

232: PRIMT "OR PRINTING" 

233: PRINT 

23^: PRINT PAYEE$; tab(60); check.number*1 
235: FOR K=1 TO I 

236: IF DORC*(K)="D" THEN CHECK.AMOUNT=CHECK.AMOUNT+AMOUNT(K) 
237: IF DORC$(K)="C" THEN CHECK.AMOUNT=CHECK.AMOUNT-AMOUNT(K) 
238: PRINT ACCOUNT*(K)+DEPT*(K)+" "; TAB(20); REMARKS*(K)+" " 
239: if dorc*(k)="D" then print amount(k) 

240: if dorc*(k)="C" then print -amount(k) 

241: NEXT K 

242: PRINT " NET AMOUNT CHECK.AMOUNT 

243: If Check.Amount It 0 then print\ 

244: "NEGATIVE NET CHECK AMOUNT CHECK NOT ACCEPTABLE" 

245: IF CHECK.AMOUNT LT 0 THEN 400 
246: 400.3 INPUT "IS THIS CORRECT? Q$ 

247: IF LEFT*(Q*,1)="n" OR LEFT*(Q$,1) = "N" THEN 400 
248: IF LEFT*(Q$,1)="y" OR LEFT*(Q*, 1)="Y" THEN RETURN 
249: GOTO 400.3 
250: 500 REM 
251: REM 

252: REM-MODULE PRINTS OUT THE CHECK STUB- 

253: REM 
254: REM 
255: lprinter 

256: check.number=check.numbers 1 
257: print tab(15);payee*; 

258: print tab(55);check.number;tab(65);month*(month);\ 

259: " ";str*(day);", ";str*(year) 

260: check.number=check.number-1 
261: print 

262: print 

263: print 

264: Rem Item Printing 

265: item*="/ / / /**###.##" 

266: sin*=" -" 

267: dou*=" ========" 

268: net*=" NET AMOUNT OF CHECK *####.##" 

269: SIGN*=" " 

270* 500.1 For k=1 to i 
271: xamount=amount(k) 

272: if dorc*(k)="C" then xamount=-xamount 

273: print using item*;tab(10); remarks*(k).sign*,xamount 

274: sign*=" " 

275: next k 

276: print tab(10);sin* 

277: print using net*;tab(10); check.amount 

278: print tab(10);dou* 

279: REM 
280: REM 

281: REM-SPECIAL ROUTINE FOR DIABLO 1640 PRINTERS- 

282: REM-FOR OTHER PRINTERS SET PAGE LENGTH CONTROL- 

283: REM-FOR LENGTH OF CHECK AND DELETE THESE LINES- 

284: REM 
285: REM 

286: REM THIS SECTION ADVANCES THE PRINTER TO THE NEXT CHECK 


TAB(50); 


348: REM-SPACE DOWN TO STUB- 

349: REM 
350: REM 

351: for spaces 1 to 7 

352: print 

353: next space 

354: console 

355: return 

356: REM 

357: REM 

358: REM..NUMBER PRINTOUT ROUTINE- 

359: REM 
360: REM 

361: 700 if d=0 then return 
362: if d = 1 then print "ONE "; 

363: IF Cl=2 THEN PRINT "TWO "; 

364: IF Cl=3 THEN PRINT "THREE "; 

365: IF Cl=4 THEN PRINT "FOUR "; 

366: IF Cl=5 THEN PRINT "FIVE "; 

367: IF Cl=6 THEN PRINT "SIX "; 

368: IF Cl=7 THEN PRINT "SEVEN "; 

369: IF Cl=8 THEN PRINT "EIGHT "; 

370: IF Cl=9 THEN PRINT "NINE "; 


371: 

IF 

C1 = 10 

THEN 

PRINT 

"TEN "; 

372: 

IF 

C1 = 11 

THEN 

PRINT 

"ELEVEN "; 

373: 

IF 

Cl = 12 

THEN 

PRINT 

"TWELVE 

374: 

IF 

Cl = 13 

THEN 

PRINT 

"THIRTEEN "; 

375: 

IF 

Cl = 14 

THEN 

PRINT 

"FOURTEEN 

376: 

IF 

Cl = 15 

THEN 

PRINT 

"FIFTEEN "; 

377: 

IF 

Cl = 16 

THEN 

PRINT 

"SIXTEEN "; 

378: 

IF 

Cl = 17 

THEN 

PRINT 

"SEVENTEEN " 

379: 

IF 

C1 = 18 

THEN 

PRINT 

"EIGHTEEN 

380: 

IF 

Cl = 19 

THEN 

PRINT 

"NINETEEN 

381: 

IF 

Cl =20 

THEN 

PRINT 

"TWENTY "; 

382: 

IF 

Cl = 30 

THEN 

PRINT 

"THIRTY 

383: 

IF 

Cl =40 

THEN 

PRINT 

"FORTY "; 

384: 

IF 

Cl =50 

THEN 

PRINT 

"FIFTY "; 

385: 

IF 

Cl =60 

THEN 

PRINT 

"SIXTY "; 

386: 

IF 

Cl =70 

THEN 

PRINT 

"SEVENTY "; 

387: 

IF 

Cl =80 

THEN 

PRINT 

"EIGHTY "; 

388: 

IF 

Cl =90 

THEN 

PRINT 

"NINETY "; 


389: IF Cl=100 THEN PRINT "HUNDRED 
390: IF Cl=1000 THEN PRINT "THOUSAND "; 

391: RETURN 
392: 750 REM 
393: REM 

394: REM-POST TO THE JOURNAL BATCH- 

395: REM 
396: REM 

397: check.number=check.number*1 
398* 750.1 for k=1 to i 

399: print #1; " ", dept*(k),account*(k),acct.name*(k), date$,\ 
400: amount(k),dorc*(k), ledger.comment*(k),0 

401: next k 

402: xcomment*=Str*(check.number)♦" "♦Payee**" " 

403: xcomment*=left*(xcomment*,30) 

404: Print 4M; " ", cash.dept*,cash.account*,cash.acct.name*,\ 
405 : date*.check.amount,"C",xcomment*,0 

406: return 
407: REM 
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287: REM THE CHR$(42) IS THE LENGTH OF THE PAGE 

288: REM THIS SHOULD BE SET TO THE LENGTH OF THE CHECK 

289: REM BY SETTING THE 42 TO THE LENGTH OF THE CHECK MULTIPLIED BY 

290: REM 6 THE SECOND LINE RESTORES THE PAGE LENGTH TO 66 

291: REM AFTER EACH CHECK IS PRINTED. 

292: PRINT CHR$(27);CHR$(12);CHR$(42);CHR$(12) 

293: PRINT CHR$(27);CHR$(12);CHR$(66) 

294: Console 
295: RETURN 
296: 600 REM 


297: REM 

298: REM-CHECK WRITING MODULE- 

299: REM-DESIGNED FOR MOORE BUSINESS FORM CHECKS- 

300 : REM-NUMBER - 

301 : REM 
302: REM 


303: x=check.amount 
304: lprinter 

305: check.number=check.number*1 

306: print tab(55);check.number;tab(67);month$(month);\ 
3°7: " ";str$(day);", str$(year) 

308: check.number=check.number-1 
309: print:print:print 
310 : print tab(3);"*•*•"; 

311: cent$="DOLLARS AND ## CENTS" 

312: REM 
313: REM 

314: REM-ALPHA DECODE FOR UP TO $20000- 

315: REM 
316: REM 

317: If x It 1000 then go to 111 
318: cl=int(x/1000) 

319: gosub 700 

320: x=check.amount-1000*c1 

321: cl=1000:gosub 700 

322: 111 if x It 100 then goto 10.11 

323: ci1=int(x/100) 

324: go sub 700 

325: x=x-100*d 

326: c1 = 100:gosub 700 

327: 10.11 if x It 20 then goto 10.19 

328: c1=10*int(x/10):gosub 700 

329: x=x-c1 

330: 10.19 c1=int(x) 

331: gosub 700 
332: x=x—cl 
333: x=int(x*100) 

334: print using cent$;x; 

335: REM 
336: REM 

337: REM-COMPLETE CHECK- 

338: REM 
339: REM 

340: print using "**####.##";tab(72);check.amount 

341: print:print 

342: print tab(14);payee$ 

343: print tab(l4); address 1$ 

344: print tab(l4); address2$ 

345: print tab(l4); address3$ 

346: REM 
347: REM 


SET CASH ACCOUNT NUMBER- 


408: REM 
409: REM- 
410: REM 
411: REM 

412: 900 Input "What is the Cash Account Number? ";cash.account$ 
413: if len(cash.account!)=4 then cash.account$=cash.account$+"00" 
414: cash.dept$=right$(cash.account!,2) 

415: cash.account$=left$(cash.account!,4) 

416: i=1 

417: account$(i)=cash.account! 

418: dept$(i)=cash.dept! 

419: gosub 300 REM VERIFIES CASH ACCOUNT NUMBER 
420: cash.acct.name$=acct.name$(1) 

421: if flags 1 then 900 
422: return 
423: 2000 REM 
424: REM 

425: REM-PARAMETER CHANGE SUBSYSTEM- 

426: REM 
427: REM 

428: FOR I0TA=1 TO 24 
429: PRINT 
430: NEXT IOTA 
431: PRINT\ 

432: " THIS IS THE SPECIAL ACTION MODULE" 

433: PRINT:PRINT\ 

434: "The Following Operations Can Be Performed:" 


435: print:print\ 

436: " Return to Main Program- 1" 

437: print\ 

438: " Reset Check Numbering-2" 

439: prints 

440: " Reprint Check-3" 

441: prints 

442: " Reset Date-4" 

443: prints 

444: " Reset Cash Account- 5" 

445: Input "Indicate The Choice Desired— choice 

446: if choices 1 then 400 

447* 2001.12 if choice ne 2 then 2001 


448: Input "What is the Check Number? "; check.number 
449: check.number=check.number-1 
450: goto 2000 

451: 2001 if choice ne 3 then 2001.23 

452: Input "When Check is Ready Hit Return";line q! 

453: gosub 600 

454: gosub 500 

455: goto 2000 

456: 2001.23 if choice ne 4 then 2002 
457: gosub 233 
458: goto 2000 

459: 2002 if choice = 5 then gosub 900 
460: goto 2000 
461: END 

NO ERRORS DETECTED 


CONSTANT AREA: 8 
CODE SIZE: 4903 
DATA STMT AREA: 152 
VARIABLE AREA: 480 
A> 

























SABR 

STATISTICAL 
ANALYSIS FOR 



An Integrated Statistics Package 
for Use on Small Computers 

By John A. Lehman 


Most of us have probably been exposed to statistics at some 
time in our careers. The more recently one has finished formal 
education, the more likely he or she is to have had statistics, 
since it is becoming a requirement in more and more disci¬ 
plines. Unfortunately, doing statistical analysis by hand is not 
a very pleasant task. Calculators have made it much easier, 
but having to punch the same set of several hundred num¬ 
bers into a calculator each time one wants to run a test or 
description is still not the way most of us would choose to 
pass our time. Since the main purpose for having a com¬ 
puter is to get it to take over the tedious tasks, statistical 
analysis seems like a prime candidate for computerization. 

This is nothing new; IBM was releasing sets of statistical 
routines almost 20 years ago. However, all early programs 
have a major disadvantage; to run a particular program one 
must enter all data for that program. But to try a different test, 
all data must be reentered. 

This article presents a small statistical package which can 
be run on a medium sized home computer system. The 
package allows room for expansion and customization, and 
does not require huge chunks of memory. The package 
name is SABR (Statistical Analysis for Business Research). 
The name reflects the author’s interest (Business Administra¬ 


tion) — it is not meant to indicate that the package cannot be 
used for non-business statistical work. 

SYSTEM CONFIGURATION 

The software has been written and run on a Z-80 system 
using TDL 8K BASIC and TDL’s ZAPPLE monitor. There 
should be a minimum of 16K memory, including the mem¬ 
ory which BASIC uses, but not including that which the 
monitor uses. Data is saved on cassette (although a disk 
could probably be used) and there are no particular terminal 
devices required by the software. I have used both a Teletype 
Model 33 and a video display board for the console. The only 
routines which may have to be changed by users of other 
systems are the tape loading and saving routines, described 
in the software section. 

GENERAL STRUCTURE OF SABR 

The overall structure of SABR is illustrated in Figure 1. 
Because it’s for a small system, all of the useful routines are 
not placed into memory at one time. The package is written 
in sections, each of which is no larger than about 6K. Each 
section contains related routines, and all of the sections 
operate on a common datafile. 
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Data from console 
Data from tape (90O) 

* ABR1 ' roe sc (JOO) 

/ Dtst (500) 
.Chose routine -/ Savt(g0 o) 


\ Stop (9999) 
\ Tran (1000) 



Hist (TOO) 


'Add (1200) 
sub (iyx>) 

Mu l (11,00) 
Div (1500) 
Exp ( 1600 ) 
Abs (1700) 
Int (1800) 
Sqt (1900) 
Sqr (2000) 
Pwr (2100) 
Log ( 2200 ) 


BIVAR 


!Data from tape 


\Chose routine 



Regr (200) 

Corr (LOO) 

Cooa ( 500 ) 

Tabl (600) 

Stop (9999) 
Plot (800) 


REGR 


fbata from tope 
/ Save (5000) 

/ Stop (9999) 

V 


Save residuals (2100) 


Regress (200) & chose( Ltst residuals (2200) 


\Histoqram. 


/ Desc (2500) 

Dist (2600) 

Hist (2700) /Range 
\(2800) 

\Return (5000) 


Figure 1. Structure of SABR. 


The datafile is “rectangular'’; it consists of a given number 
of columns and rows. Each column represents a different 
variable; each row represents a different observation. The 
user can select the configuration of columns and rows which 
he/she wants to use; any combination is OK as long as it will 
fit into the available memory. The configuration of the data¬ 
file is stored along with the file itself on tape. Labels for both 
the datafile itself and for all of the variables within it are also 
stored on the tape. Thus, the user does not have to remember 
how the datafile has been configured each time it is read in. 

As mentioned, there are a number of different sections or 
modules. The first of the modules is used to set up the data¬ 
file and to get simple descriptive statistics about it. It includes 
the initialization routines, the univariate statistical routines, 
and transformation routines. The last enables a user to create 
new variables by mathematical transformations of existing 
ones. Finally, there are routines to save the datafile on tape. 
This module is probably the most useful. The second module 
reads in an existing datafile and allows the user to perform 
various bivariate descriptions and tests on the data. This 
module does not contain routines for modifying the data. 

Most users will want to use these two modules, and there 
are others. In my own case, these are routines used in 
multivariate analysis. One routines tends to take an entire 
module when one is doing multiple regression or something 
of that nature. Other modules include one to perform special 


tests on survey data (such as descriptive statistics for stratified 
and cluster samples), and timeseries/econometric fore¬ 
casting routines. 

For that matter, most statistical programs can be adapted 
to SABR by coding them to use the SABR data structure and 
following some of the more important coding conventions. 
The detailed structure of the datafile is illustrated in Figure 2. 
Some of the coding conventions are illustrated in Table 1. 
These last are obviously not necessary if one writes separate 
modules, but they should at least help make the code some¬ 
what more readable. 
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Table 1. Notes on SABR Code 

SABR is a fairly long package, as BASIC programs 
go (over 800 statements). I have followed certain stan¬ 
dards (more or less) in order to make it more readable. 
Throughout the program, the following variable 
names apply. 

D(i,j) = SABR datafile, case by variable 

L$ = labels for each variable 

CS = total cases 

VB = total variables 

Ml = minimum 

MX = maximum 

M = mean 

SD = standard deviation 

CV = covariance 

VP = population variance 

VS = sample variance 

SP = sample standard deviation 

A$ = string for user answers 

R = coefficient of correlation 

R2 = coefficient of determination 

l,J,K = counters 

I9,J9,K9 = counters within subroutines _ 

SABR COMMAND PROCESSORS 

After the data has been loaded into a SABR module, a 
menu of possible routines will be presented. The menus 
have been set up to allow easy insertion of additional rou¬ 
tines. They are also set up so that the first time the user is 
asked for a command, all of the possible choices are pre¬ 
sented. After that, the prompt is simply “COMMAND?”. If a 
non-valid command is typed, the menu will be reprinted and 
you can select again. Thus, any time you forget what you can 
do in a given module, just enter a random letter and you will 
be told all of the choices. 

DATA LOADING ROUTINES 

With the main module (SABR1) there is a choice of either 
entering data from the keyboard or from tape. All other mod¬ 
ules load data from tape only. There are three basic parts to a 
tape load. The first is the string load routine which loads a 
string from the tape byte by byte. The second is the number 
loading routine which itself calls the above string routine, 
and then converts the result to a number. The third part is the 
main routine which calls the others in the proper order and 
which assigns their results to the proper variables. 

Since BASIC subroutines cannot pass parameters like 
FORTRAN or PL/1, the solution used here has been to 
have the subroutine return a string in X$ and a number in 
XX. The calling routine then sets these equal to the proper 
variable. Thus, to read A$ from the tape, GOSUB to the 
string read routine and then LET A$=X$. 

DATA SAVE ON TAPE 

This routine is used in the main module (SABR1) and in 
the multiple regression routine. It will also be needed if the 
TRANsformation routines are separated from the main 
module in order to save memory space. Like the load rou¬ 
tine, the save routine is divided into three sections. These are 
the routine to parse and save strings, the routine to convert 
numbers to strings, and the command routine which puts the 
others together. 

Data to be saved is output one byte at a time to the tape 
punch. The method for doing this was described in the 
BASIC FORUM in the fourth issue of Kilobaud. Each byte in 
a string is extracted, converted to a number and stored in an 
array (SS(I9) in my code). Each number in the array, in¬ 
cluding the end of string mark (FFH, 255 decimal) is then 
output to the tape punch. 

One way this can be done is to assign the list device to the 
tape punch. In the TDL system this is done by patching the 


user list vector (F815-17) to the tape output routine in the 
monitor (F4CE). BASIC WAIT and OUT statements could 
be used, but this would require setting up the 6850 I/O in¬ 
terface, and the monitor already has the software to do this. 
Note also the routine at the end of line 860 in SABR1 to 
waste time (for k9= 1to99:nextk9). This is necessary since 
the BASIC interpreter won’t input data at 1200 baud, which 
is the speed of the cassette driver. If the slow I/O is a prob¬ 
lem, reduce the number of loops; 99 is fairly conservative. 
Like the tape load routines, data is passed in X$ and XX. 

SUBROUTINE DESC (Example 1) 

The DESC subroutine prints a set of descriptive statistics 
for a selected variable. The statistics printed are: minimum, 
maximum, mean, coefficient of variation, population vari¬ 
ance, population standard deviation, sample variance and 
sample standard deviation. These are fairly straightforward. 



Example 1 

DESC and WRIT from SABR1 


WHICH VARIABLF? 1 

MINIMUM* 1 

MEAN- 2.08 

POPULATION VARIANCE- 

. 7936 

MAXIMUM- A 

COEFFICIENT OF VARIATION- .A37121 
POPULATION SD- .8908A2 

SAMPLE VA»I 

tANCE* .8266*7 

SAMPLE SD- • 9 09 212 


1 

1 


1 

1 

2 

1 

1 

1 


1 

3 

1 

1 


2 

A 

1 

2 


2 

5 

1 

2 


2 

6 

1 

2 


3 

7 

1 

2 


3 

3 

1 

3 


3 

9 

1 

3 


A 

10 

1 

3 


A 

1 1 

1 

3 


A 

12 

1 

1 


1 

1 

2 

1 


1 

2 

2 

1 


1 

3 

2 

1 


2 

A 

2 

2 


2 

5 

2 

2 


2 

6 

2 

2 


3 

7 

2 

2 


3 

8 

2 

3 


3 

9 

2 

3 


A 

1C 

2 

3 


A 

1 1 

2 

3 


A 

12 

2 

A 


A 

1 

3 


The coefficient of variation is the sample standard deviation 
divided by the mean. Population variance and standard 
deviation have N degrees of freedom; sample statistics have 
N-1 degrees of freedom (i.e. the denominator is either N or 
N-1). If you prefer your coefficient of variation to reflect 
population rather than sample values, change CV = SD/N to 
CV = SP/N in line 370. 

SUBROUTINE DIST (Example 2) 


Example 2 DIST and HIST from SABR1 

VARIABLE NAME 

1 A 

2 B 

3 C 

A D 

WHICH VARIABLE#? 3 
HOW MANY FREO CLASSES? 3 
UPPER BOUND FOR CLASS 

1 ? A 

2 7 10 

3 ? 15 

CHANGES,YES OR NO? NO 
**FREQ. DISTRIBUTION** 

UPPER BOUND COUNT PROPORTION 

A 7 .28 

10 12 • A8 

15 6 •2A 

S TOP, HIST 0° MORE? HIST 
**HIST0GRAM** 

UPPER BOUND 

A ♦*•****• 

10 ♦«**«*••••*•• 

15 +*•••** 
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The DIST subroutine prints a frequency distribution and an 
optional histogram (bargraph) of a selected variable. You select 
how many classes are wanted and what should be their boun¬ 
daries each time the routine is run. Note that the upper bounds 
are not inclusive — an interval with a lower bound of zero and 
an upper bound of one does not include one (but does include 
zero). Note also that if any frequency class contains more 
than about 400 points, the histogram routine will blow up. 

SUBROUTINE TRAN 

The TRAN subroutine allows the transformation of 
variables using most of the math functions built into BASIC. 

I have not included the trig functions, but they should be 
easy to add if necessary. The available transformations are: 
addition, subtraction, multiplication, division, exponentia¬ 
tion, absolute value, integer value, log, power, (both expo¬ 
nentiation and log are base e; power is base 10), square root 
and square. You can specify which variable you want to 
transform and where you want to put the result.The result 
can be either an existing or a new variable. 

With addition, subtraction, multiplication and division, 
either a constant or another variable can be used as the sec¬ 
ond term. Thus, if vl were a price index for C periods and v2 
were an economic series, the second could be divided by the 
first to get a deflated value. The subroutine is partly idiotproof 
(it won’t allow division by zero or take the square root of a nega¬ 
tive number) — when you do something fatal like this it tells 
where the mistake is and replaces the missing value with zero. 

TRAN is shown included in the main program (SABR1). 
However, putting the two together uses up quite a bit of mem¬ 
ory. I tend to use TRAN as a separate program and leave it out 
of SABR1 if the datafiles I am analyzing are at all large. Once 
the combination is up and running, it is a simple matter to 
delete the unnecessary statements for each program (SABR1 
and TRAN) and save both parts as well as the whole. 

SIMPLE REGRESSION ROUTINE (Example 3) 

This is the first routine on the Bivariate menu. Regression 
is fitting a straight line to describe the relationship of two vari¬ 
ables. The independent variable changes and then this pro¬ 
duces changes in the dependent variable. We might find, for 
example, that the amount of memory in a small computer 
system is a function of the amount of money sunk into the 
system. An equation might be Y = 1 + .005X where Y is the 
amount of memory (in one K chunks) and X is the amount of 
money spent. 

Simple regression allows the calculation of the equation of 
a line like the above, given a series of observations on Y and 
X. It uses what is known as “least squares”, meaning it mini¬ 
mizes the sum of the squares of the errors. The standard er¬ 
ror of the regression tells how far the estimate is likely to be 
off, while the R-squared tells how much variation you have 
explained. If the r 2 for the above regression were .75, this 
would mean that 75% of the variation in amount of memory 
was due to the amount of money invested. 

CORRELATION ROUTINE (Example 3) 

Correlation is like regression, except that it does not 
assume that one thing causes another. The routine here 
gives the correlation between one variable and another, i.e. 
how much of the changes in the two are interrelated. The in¬ 
terpretation is similar to that of r 2 for simple regression. Like 
regression, the correlation routine assumes that any relation¬ 
ship is linear. 

TWO WAY TABLE (Example 3) 

The TABL routine builds a matrix showing which elements 

have a given value of one variable and a given value of a sec¬ 
ond. This might be used, for example, to see how many peo¬ 
ple in a club have systems with both 1 6-24K of memory and 
two high level languages. The subroutine also computes 


Example 3 TABL , REQR , CORR and COVA from Bivariate 

*** TWO WAY TABLE*** 

CATAGORICAL DATA 
V » FOR HORIZONTAL AXIS? I 
LOVER * UPPER BOUNDS? 1,4 
V# FOR VERTICAL AXIS? 2 
LOVER i UPPER BOUNDS? 1,4 


•••TWO VAY TABLE*** 

B/A 

6 0 0 0 6 

2 4 0 0 6 

0 4 2 0 6 

0 0 6 1 7 

8 8 8 1 

••SIMPLE REGRESSION** 

WHICH TWO VARIABLES (DEPENDENT 1ST)? 1,2 


A- ,258707 B- .711443 

SE* .393545 R- .905789 P-S0R* .820454 


LINEAR CORRELATION 
WHICH VARIABLES? 1,2 

COEFFICIENT OF CORRELATION <R)• .90579 
COEFFICIENT OF DETEMINATION CR*2>* .820455 


••COVARIANCE** 

WHICH VARIABLES? 1,2 

COVARIANCE OF VARIABLES 1 4 2 » .953334 


marginal values. This means that it prints the sums of all of 
the rows on the right hand side, and the sums of the columns 
at the bottom. Users should be advised that the program as 
written has quite a few loops and takes a long time to execute. 

COVARIANCE ROUTINE (Example 3) 

This routine calculates the covariance between two vari¬ 
ables. This is a measure of the degree to which the two vary 
together. 



Example L PLOT from Bivariate 


* • °L0 



VHI CH 

VARIABLE? 3 


PLOT OF VARIABLE 3 


0B5 

1 

VAL 

50 

1 ! • 


2 

2 ! * 


3 

3 ! « 


4 

4 f • 


5 

5 t • 


6 

6 I * 


7 

7 I • 


8 

8 » • 


9 

9 1 * 


10 

10 1 * 


1 1 

lit * 


12 

12 t * 


13 

1 f • 


14 

2 I • 


15 

3 t * 


16 

4 r * 


17 

5 f • 


18 

6 I * 


19 

7 ! • 


20 

8 I * 


21 

9 f • 


22 

10 1 * 


23 

lit * 


24 

12 ! * 


25 

1 t * 



PLOT ROUTINE (Example 4) 

This routine, while contained in the bivariate package, is 
bivariate only if one considers time to be one of the variables. 
It simply plots the values of a given variable for each case in 
the datafile. The routine automatically scales the data so that 
the plot will not overflow the page. 
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MULTIPLE REGRESSION PROGRAM (Example 5) 

Multiple regression is similar to simple regression (as con¬ 
tained in the Bivariate package). The multiple variety uses 
more than one variable to explain the variation in the depen¬ 
dent variable. The regression program in SABR will calculate 
the regression equation, the standard error of the regression 
and the coefficients of correlation (r) and determination (r 2 ) in 
the same way as the simple regression package. 

The multiple version also permits saving and analyzing the 
residuals from each regression. The residuals are the differ¬ 
ence between what the equation describes the data as and 
what they really are. They are what the least squares method 
of regression minimizes. The reason for analyzing the resi¬ 
duals is that this gives you quite a lot of information on how 
well your regression model really fits the data, and what must 
be done to improve the fit. With this program you can do a 
certain amount of analysis on the spot, and/or save the 
results to analyze in more detail with other SABR routines. 

This package gives an idea of how other programs can be 
adapted to SABR. Part of the program is modified from one 
in Common BASIC Programs. Modified here means both 
that it was changed to fit the SABR structure and that the er¬ 
ror in the original program which made it give wrong 
answers was corrected. 


Example 5 Multiple regression 

• •MULTIPLE. REGRESSION-* 

HOW MANY INDEPENDENT VARIABLE? 3 
ENTEP VARIABLE NUMBERS* DEPENDENT FIRST 
? I 
? 2 
? 3 
? 4 

EQUATION COEFFICIENTS 

CONSTANT* .0935592 
V( 2 ) <B>- .786958 
V< 3 ) <C>--.032562 
V( A > (D)« . 1 13025 

R-SQUARED- .83624 
R* .914462 

STD ERROR OF ESTIMATE- .393337 
DO YOU WANT TOi 

SAVE-SAVE RESIDUALS IN THE DATABASE 
LIST-LIST RESIDUALS 
HIST-HISTOGRAM OF RESIDUALS 
RE TN- RETURN TO MAIN REGRESSION ROUTINE 
? SAVE 

SAVING RESIDUALS 

LABEL FOR NEW VARIABLE? RESIDUAL 
RESIDUALS SAVED AS V( 5 > RESIDUAL 
DO YOU WANT TOi 

SAVE-SAVE RESIDUALS IN THE DATABASE 
LIST-LIST RESIDUALS 
HIST-HISTOGRAM OF RESIDUALS 
RETN-RETURN TO MAIN REGRESSION ROUTINE 
? HIST 

HISTOGRAM AND DESCRIPTIVE STATISTICS OF RESIDUAL 
HISTO GRAM 

MINIMUM*-.763276 MAXIMUM- .725601 

MEAN--1.04904E-07 
UPPER BOUND 

-.51513 ♦•• 

-.266984 ♦•••• 

-.0188375 ♦*••*•• 

.229309 ♦•*•*** 

.477455 ♦•*•*• 

.725601 ♦• 


NOTES ON COMPUTER IMPLEMENTATION 

The SABR package has been written and run on a TDL 
Z-80 based system (the predecessor of the present X1TAN 
system). It is written in TDL 8K BASIC which is very similar 
to Altair BASIC. The package requires a minimum of one 
cassette recorder and 16K of user memory. This latter in¬ 
cludes the space taken by BASIC, but does not include the 
space taken by the system monitor. 

One of the major features of SABR is that it saves and 
loads datafiles on cassette tapes. TDL BASIC does not have 
the facility to do this directly, but it does have the ability to 


write on a list device other than the console, and to run in 
batch mode (input from logical reader, output to list device). 
SABR assumes that the logical list device has been set up as 
the cassette punch in the operating system before BASIC is 
run. Files are read by changing over to batch mode from the 
middle of a program. SWITCH 2 changes to batch mode, 
and SWITCH 3 changes back to the user console. Timing 
loops on write are required. It is rather slow and cumber¬ 
some, but it gets the job done. 

Users of other BASICs have a number of choices when 
they go to implement this filesave facility. BASICs which in¬ 
clude SWITCH, LPRINT and allow running in batch can be 
used with the above kluge. If a BASIC allows direct saving of 
files on tape or disk, one will have to rewrite the save and 
load routines for the system. Those who have a version of 
Altair BASIC which does not include data saving, look at Dr. 
Dobbs Journal of Computer Calisthenics and Orthodontia, 
October, 1976. This is an article on saving data from Altair 
BASIC. Alternatively, Kilobaud, May, 1978, has an article 
which shows how to do this. Others may want to look at the 
BASIC Forum in Kilobaud numbers 2 and 4, which is the 
source of much of what I have done here. 

The routines just described are fairly slow. This is due to 
the need to make sure that the tape does not outrun the pro¬ 
gram. If you have a controlled reader/punch, loading and 
saving data can be very much speeded up. For those with 
TDL’s tape interface, it is written up in TDL’s Technical 
Memorandum #106. The basic idea here is to load blocks of 
data into a buffer with the buffer being saved or loaded on tape. 

To use the controlled reader/punch for saving data, the 
list device is configured to the tape punch. TDL users should 
assign List to F4C4 HEX and then assign reader and punch to 
the user defined controlled routines. The data can then be out¬ 
put to tape using LLIST and read in in batch using SWITCH. 
A listing of the modified routines for the TDL system is illus¬ 
trated in Listing 4. 

One important suggestion for using SABR is to save a file 
as soon as it has been created. This takes a great deal of time 
but is not the unnecessary bother it may seem at first. In fact, 
it becomes only common sense after the first time the local 
electric utility burps and wipes out BASIC, SABR and the 
few hundred datapoints which were just entered.□ 
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PROGRAM LISTING 


LISTING 1 


1 REM ** SABR** 9/78 VERSION BY JOHN LEHMAN 

2 REM THIS PROGRAM SETS UP A FILE 

3 REM AND/OR PERFORMS STATISTICAL ANALYSIS. 

7 REM THE FORMAT OF THE DB ON TAPE WILL BE TS (LABEL ),VB, C S, 

8 REM LSCN) (INDIVIDUAL LABELS) ,VC11,VC2),ETC. 

10 DIM D(25* A):REM D* DATABASE 

11 LIMF9C25), SS( 15), F8(25),BC25) 

14 ? i ? TABC 20) "**♦** SABR*****”* ? : ? 

15 INPUT"D0 YOU WANT TO ENTER DATA ’HERE * OR FROM •TAPE** , ;Ai 

16 I FAS* "TAPE"THEN900 

17 IFAS<>”HERE M THEN 15 

20 INPUT"NAME OF DATABASE/F1LE";TS 

30 INPUT"STAT DB INITIALIZATION. ENTER # VARIABLES & # CASES"; VB,CS 
40 FOR 1*1 TO VB:?"LABEL FOR VARIABLE"!I:IN PUT LS(l):NEXT 1 
45 FOR 1*1 TO CS:F0R J* 1 TO VB: ? ”1 TEM"; I; J; s IN PUTDC I, J) 

50 NEXT J: ? :NEXT I 

70 INPUT "ANY CHANGES,YES OR N0’*;NS 
80 IF NS* "NO " OR NS*"N0" THEN 120 

90 INPUT*’EN TER VARIABLE AND CASE NUMBERS FOR CHAN GE"; V1, C 1 
100 INPUT ’’NEW VALUE**; D( C 1, V1) 

1 10 GOTO 70 

112 ? "* * DATABASE INI TI ALI ZED**" 

120 ?**WOULD YOU LIKE TO:'* 

130 ?** DESC-GET DESCRIPTIVE STATISTICS'* 

140 ?'* DIST-GET FREQUENCY DI STRI BUTION S** 

145 ?** TRAN-PERFORM TRANSFORMATIONS ON VARIABLES'* 

150 ?" SAVE-SAVE THE DATABASE ON TAPE'* 

1 60 7" STOP-END THE RUN" 

165 ?" WRIT-LIST THE DATABASE" 

170 ?»?:?:INPUT "COMMAND"; AS 
180 IF AS*"DESC" THEN 230 
190 IF AS*"DIST" THEN 240 
200 IF AS*"SAVE" THEN 250 
210 IF AS*"STOP" THEN 270 

2 15 I FAS*"TRAN" THEN 280 
2 17 I FAS* ** VRI T"THEN29 5 

220 GOTO 120 

2 30 GO SUB 300:PEM DESC 

2 35 GOTO 170 

240 GOSUB 500:REM DIST 

245 GOTO 170 

250 GOSUB 800:REM SAVE 

255 GOTO 170 

270 GOTO 9999 

2 75 GOTO 170 

280 GOSUB 1000 

290 GOTO 170 

2 95 FORI*1 TOCS:FORJ*1TOVB:?D(I,J),:NEXTJ:? xNEXTI:GOTO 170 
300 REM COMPUTES M IN, MAX, MEAN , SI GM A, SI GMA t 2, S, S t 2, C V 
305 SI *0:S2*0 

310 INPUT-WHICH VARIABLE";V 
320 FOR 1*1 TO CS 

330 S1*S1*DC I, V)*D< I, V) : S2*S2+D<1, V) :NEXT 1 : REM SUMS SQUARES 
340 M-S2/CS 

350 VP*(Sl-CS2*S2/CS))/CS:SP*SOR<VP):REM POPULATION SD 

3 60 VS*(S1-(S2*S2/CS))/< CS-1)*SD*SQR( VS) 

3 70 CV* SD/M:REM CV 
380 N*CS-1 

390 MI *D( 1, V) l MX* D( 1, V) i REM MIN AND MAX 

400 FOR I = 1 TON : IFMI« * DC C 1*1),V) THEN 4 1 0: EL SEMI * D< ( !♦ 1 ) , V) 

410 IF MX»*D( < I ♦ 1 ),V) THEN 420:ELSE MX* DC ( 1 ♦ 1 ) , V) 

420 NEXT I 

4 30 ? I? "MINIMUM*"; Mi; TABC 35) ; "MAX I MUM* **; MX 


4 60 ? "SAMPLE VARI AN CE* ",' VS,' TABC 35) ; "SAM PLE SD*'*; SD 


470 ?:?:RETURN 

500 REM SUBROUTINE FOR FREQUENCY DISTRIBUTIONS 
510 ?"VARIABLE NAME":REM REMIND WHICH IS WHICH 
520 FOR 1*1 TOVB:?I,LS(I)iNEXTt? 


SP 


530 INPUT"WHICH VARIABLE#";V 
535 FORI* 1 TO 10: F9( I )*0:NEXTI 
540 INPUT"HOW MANY FREQ CLASSES";N 

550 ? "UPPER BOUND FOR CLASS":FOR I * 1 TON : ? I ; : IN PUTBC I ) :N EXT1 
560 1 N PUT" CHAN GES, YES OR NO ••: A * t 1 F A* * **N O "TH FJU 58 O 
570 INPUT" WH I CH NUMBER'*; I : IN PUT"VAL UE"; B< I ): GO TO 560 
580 FO RI = I TO C S: I F DCI,V)<B(1) THEN F9 ( 1 ) * F9 ( 1) ♦ 1 
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585 

590 


595 
597 

599 

600 
6 10 

i§8 n 

6 40 
650 
700 

7 10 
720 
7 30 
7 40 
755 
757 
7 60 

7 70 
730 

8 00 
801 
8 10 
8 15 
8 20 
825 
8 30 
8 35 
8 50 
8 55 
8 60 
8 65 

8 70 
900 

9 05 
9 10 
9 15 
9 20 

US 

955 
9 60 
9 65 
9 70 
1 000 
1010 
1 020 
1 030 
1 040 
1 050 
1 060 
1 070 
1 030 
1 090 
1 100 
1110 
1 120 
1 130 
1 140 


FOR J* 2 TON 

1 FNOTC DC I* VXB( J) ) THEN 599 
IF DCI*V)«BCJ-I) THEN 599 
F9CJ)»F9CJ)*1 
NEXT J 

NEXTI :?!?:?:?” **FREO. DI STRI BUTION**”: ? 
?**UPPER BOUND COUNT PRO PO RTI ON ”s ? 

?! ?! nwfHw-pfsi ws%* mi* tv t 

THEN GOSUB 700 


IFA$ 3 "HI ST" 

RETURN 

REM SUBROUTINE HIST 

pj* ••****« ****************** ********** ** ******* *************” 
?:?:?•* **HI STO GRAM** **!?:? 

J* 1: REM COITNT 

FORI 3 1 TONiIFF9(1)>50THENJ»2:IFF9(1)>100THENJ*3 
IF F9 <1> >150THENJ* 4 * 1F F9<I)>200THENJ* 5 
1FF9(I)>250THENJ*6:lFF9(I)> 300THENJ*7:NEXT1 
?•’UPPER BOUND**! ? 

FORI 3 1 TON * N 1 ■ F9 < I ) / J : A$ 3 LEFTSC PS* N1):?BCI); TAfa< 5) •*♦••; AS: NEXTI 
?!?!?:RETURN 

REM SUBROUTINE TO SAVE FILES ON TAPE. FORMAT IS FILE-LABEL* 
REM #V* #C* INDI VI DUAL L ABEL S* V1 C 1 * V1 C2* ETC. 

?l?”**STARTING SAVE**** 

INPUT**START PUNCH * PRESS A KEY WHEN READY**; AS 
XS 3 TS:G0SUB8 50!XX»VBi GOSUB870sXX*CS:G0SUB8 7O 
FORI*1T0VB:XS 3 LS(1):GOSUB 850:NEXTI 

FORI 3 1 TOCSt FORJ 3 1 TOVB: XX* D< 1* J) : GO SUB8 70 :N EXTJ : N EXT! 

? "DATABASE SAVED** s RETURN 

REMSTRING SAVE SUBROUTINE*SAVE IN XS 

FORI 9*1TOLEN < XS):SSC19) 3 ASCCMID$CXS#I9* 1)):NEXTI9jSS(19) 3 25 5 
F0RI9 3 1TOLEN C XS)♦1:L PRIN TSSC19):FORK9*1T099:NEXTK9:NEXTI9 
RETURN 

XS-STRS(XX):GOSUB850:RETURN:REM SEND IN XX 
REM SUBROUTINE TO LOAD A FILE FROM TAPE 
INPUT**START READER AND PRESS A KEY**; AS: TRACE 1 
GOSUB 950: TS 3 XSi GOSUB 9 70: VB« XX: GO SUB9 70 : C S»XX 
FORI 3 1TOVB:G0SUB9 50:LS<I) 3 XS:NEXTI 

FORI * 1 TOCS: FORJ 3 1 TOVB: G0SUB9 70: D( I * J ) 3 XX :N EXTJ : NEXTI : TRACE 0 

n Lfl 

I 9» I 9*> 1 

SWITCH 2:1 NPUTSS( 1 9 ) : S WI TCH 3: I FSS( I 9 ) « > 255 TH EN 955 
J9* 19-1 : X S* **•*: F0RI9« 1T0J9: XS 3 X$-fCHRS< SSC 19) ) :NEXTI9 : RETURN 
G0SUB95O:XX 3 VAL<XS):RETURN:REM LOAD NUMBER 
REM SUBROUTINE TO PERFORM TRANSFORMATIONS 
?” ***TRAN S FORM AT I ON ROUTINE*'**” 

INPUT **WOULD YOU LIKE A LIST OF TRAN SFORMATI ON S**; AS 
IF LEFTSCAS*1) 3 ”Y” THEN GOSUB 2500 

1N PUT** DE ST 1 NAT I ON AND SOURCE VARIABLE N UMBERS**; V* V1 
1NPUT-VHICH TRANSFORMATION**; TS 
IF T$ 3 **ADD**THEN GOSUB 1200 
IF TS 3 **SUB** THEN GOSUB 1300 
IF T$ 3 **MUL** THEN GOSUB 1400 
IF TS 3 **DIV THEN GOSUB 1500 
IF TS***EXP** THEN GOSUB 1600 
IF TS***ABS** THEN GOSUB 1700 
IF TS 3 **INT** THEN GOSUB 1800 
IF TS 3 **LOG'* THEN GOSUB 2200 
IF TS 3 ”PWR” THEN GOSUB 2100 


9 3 $?8iMRtTU§N T ?N 


1 12 
XS 


1595 RETURN 

1 600 ?** EXPONENTIATION TRANSFORMATION” 

1 610 FOR 1 3 1 TOCS 
1 620 DC 1* V)-EXPC DC 1* VI) ) 

I 630 NEXT I 
1640 RETURN 

1700 ?” ABSOLUTE VALUE TRANSFORMATION” 

1710 FOR I 3 1 TOCS 

1 720 DCI*V) 3 ABSCDCI*V1)) 

1730 NEXTI 

1740 RETURN 

1800 ?” INTEGER TRANSFORMATION” 

1810 FOR 1 3 1T0CS 

1820 DCI#V) 3 INTCDCI*V1)) 

1830 NEXT I 
1840 RETURN 

1900 ?” SOUARE ROOT TRANSFORMATION” 

1910 FOR I 3 1 TO CS 

1920 IF DCI*V1)> 3 0 THEN 1960 

1930 ? “ATTEMPT TO TAKE SOUARE ROOT OF NEGATIVE NUMBER AT CASE ' 

1940 DC 1# V) 3 0 

1950 GOTO 1980 

1960 DC1*V) 3 S0RCDCI*V1>) 

1980 NEXT I 
1990 RETURN 

2000 ?” SQUARE TRANSFORMATION” 

2010 FOR 1*1 TOCS 

2020 D(I* V)«D(I* V1)*D(I* VI) 

2030 NEXT I 
2040 RETURN 

2100 ?” POWER TRANSFORMATION” 

2 110 INPUT”TO WHAT POWER”; P 
2120 FOR I 3 1 TO CS 

2 130 DC1* V) 3 DC I, VI) tP 
2140 NEXT I 
2150 RETURN 

2200 ?” LOG TRANSFORMATION” 

2210 FOR I 3 1T0CS 

2220 DC I* V)*LOGC DC I* VI ) ) 

2230 NEXT I 
2240 RETURN 

2500 REM SUBROUTINE TO PRINT ALTERATIVE TRANSFORMATIONS 
2510 ?“TRANSFORMATIONS AVAILABLE ARE:” 

2 520 ? “ADD* SUB# MUL* DI V* P VR” 

2 530 ? ”SQR* SOT*LOG/ EXP# ADS* INT” 

2 540 ?! RETURN 

9 999 END 

LISTING 2 

1 REM BIVARIATE 9/73 VERSION BY JOHN LEHMAN 

2 DIM SSC 15) 

5 DIM DC 50*3)*TC 1 0* 10)* AC 10)#BC 1 0) 

10 REM THIS PROGRAM PERFORMS BIVARIATE ANALYSIS ON STATISTICAL 
20 REM DATA FROM A SABR FILE. THE FILE INPUT FORMAT IS: 

24 REM NAME OF DATABASE*#VARIABLES##CASES*LABELS FOR EACH 
26 REM VARIABLE* VARIABLE VALUES 

28 ?” ** SABR BIVARIATE**”:? 

29 INPUT”START READER * PRESS A KEY”; A$:TRACE 1 

30 G0SUB40:TS*XS:GOSUB60:VB*XX:G0SUB60:CS 3 XX 
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1150 IF TS* "SOR" THEN GOSUB 2000 
1160 IF TS*"SOT" THEN GOSUB’1900 
1 170 RETURN 

1 200 ? M ADDITION TRAN SFO RM ATI ON •• 

1210 INPUT"ADD VARIABLE C*V*) OR CONSTANT < # C*>";AS 
1 220 IF AS*"V" THEN 1260 
1 230 INPUT"VALUE OF CONSTANT"; P 

I 235 FOR I ■ 1 TOCS 
1 240 DC I # V) ■ DC I # V | ) ♦ P 

1245 WEXT I 
1250 RETURN 

1260 INPUT"VHICH VARIABLE";V2 

1 265 FORI * 1 TO CS 

1270 DC I# V)*DC I# VI )*DC 1# V2) 

1 275 NEXT I 
1280 RETURN 

1300 ?" SUBTRACT TRANSFORMATION" 

1310 INPUT"SUBTRACT VARIABLE C*V*) OR CON STANT( • C*)";A$ 

1 320 IF AS*"V" THEN 1360 
1 330 INPUT "VALUE OF CONSTANT"; P 
1 335 FOR I * 1 TO CS 
1 340 DCI#V)*DCI#V1)-P 
1345 NEXT I 
1350 RETURN 

1 360 INPUT"VHICH VARIABLE";V2 
1 365 FOR I * 1 TOCS 
1 370 DC I#V)*DCI#V1)-DCI#V2) 

I 380 NEXT I 
1 390 RETURN 

1400 1" MULTIPLY TRANSFORMATION" 

1410 1NPUT"MULTIPLY BY VARIABLE C*V*) OR CONSTANT C # C f )";AS 

1M8 i^ftr"OTM^8N S TANT-;p 

1 435 FOR I * 1 TOCS 
1 440 DC 1/ V) * DC I, V1)*P 
1445 NEXT I 
1450 RETURN 

1 460 IN PUT"WHICH VAR1ABLE";V2 

1 465 FOR I • I TOCS 

1470 DCI, V)»DCI# V1)*DCI# V2) 

1475 NEXTI 
1 480 RETURN 

1 500 ?" DIVIDE TRAN SFO RM ATI ON " 

1 505 IWPUT"DI VI DL BY CONSTANT C*C*> OR VARIABLE C # V')";AS 

1510 IF A S*"V" THEN 1555 

1515 INPUT"VALUE OF CON STANT";P 

1 520 lFPoO THEN 1535 

1 525 ?"CAN * T DIVIDE BY ZERO" 

1 530 GDTO 1515 
1 535 FDR I * 1 TOCS 
1 540 DC I # V) * DC 1 # VI ) / P 
1545 NEXT I 
1550 RETURN 

1 555 IWPUT"VH1CH VARIABLE"; V2 
1 560 FDR I s * 1 TOCS 
1 565 IF DCI# V2) « > 0 THEN 158 5 

1 570 ? "ATTEMPT TO DIVIDE BY ZERO IN CASE "I I 
1 575 DC 1# V) -0 
1 580 GOTO 159 0 
1 585 DCI# V)*DCI# V1)/DC1# V2) 

1 59 0 NEXT I 


32 FORI*1T0VB:G0SUB40:LSCI)*XS:NLXT1 

3 5 FORI*1 TOCS:FORJ*ITOVBtG0SUB60: DC 1 # J ) * XX :N EXTJ : N EXTI 
37 GOTO 70 

40 19*0:REMRETURN STRING IN XS 
45 19*1 94- 1 

50 SWITCH 2: INPUTSSC 19) : SWITCH 3: 1 F S SC l 9) < > 25 5 THEN 45 

5 5 J9 * I 9 - 1 : X S*.. R19- 1 T0J9 : XS*XS* CHRS C S SC 1 9) ) : N EXT! 9 : RE TURN 

60 GO SUB40:XX*VALC XS) :RETURN:REM LOAD NUMBER 

70 TRACE 0:7"DATABASE LOADED"!? 

99 REM**** BEGIN REAL PROGRAM WITH LINE 100 


1 00 
1 10 


1 20 
I 30 


1 40 
1 50 
1 52 


REM MENU SUBROUTINE 

?" ***MENU***":?!?" WOULD YOU LIKE TOs" 

?M8:8i8aih?l 8 K«l28no«- 

?" TAbL-TWO-WAY TABLE" 

?" COVA-COVARIANCE" 

?" PLOT-TIME PLOT" 


1 55 7" STOP-END PROGRAM" 
157 1N PUT" CO MM AN D"; A$ 

160 I FAS*"REGR"THEN 190 
165 1 FAS*"CORR"THEN 192 
170 I FAS*"TAbL"THEN 194 
172 I FAS*"PLO T"THEN 198 
175 1 FAS*"COVA"THEN 196 

177 I FAS*"STOP"THEN 9999 

178 GOTO 110 
180 GO TO 1 5 7 


190 

GO SUB 

200:REM 

REGR 

VECTOR 

191 

GO TO 

157 



192 

GO SUB 

400:REM 

CORR 

VECTOR 

193 

GOTO 

157 



194 

GO SUB 

600:REM 

TABL 

VECTOR 

1 95 

GOTO 

157 



196 

GO SUB 

500:REM 

COVA 

VECTOR 


197 GO TO 157 

198 G0SUB800 

199 GOTO 157 

200 ?!?" * * SIM PL E REGRESSION**"!? 

205 S1*0!S2*0:S3»0!S4*0:S5*0 

2 10 I N PUT" WH I CH TWO VARIABLES C DEPEN DEN T 1ST)"#*V1#V 
220 FORI * 1 TOCS 

230 S1»S1*DCI#V)iREM SUM X 
240 S2*S2*DC I# VI ) : REM SUM Y 
250 S3* S3* DC I#V)*DC 1#V> : REM SUM Xt 2 
260 S4-S4*DC I# VI )*DC I# VI ) ! REM SUM Y»2 
270 S5«S5*DC I# V)*DC I# VI) : REM SUMXY 
280 NBXT I 

290 X* 51 * S1: Y- S2/CS: REM C SUM X)*2 * YBAR 
300 A*CS2*S3-SI *S5)/CCS*S3-X) 

310 B*<CS*S5-Sl*S2)/<CS*S3-X) 

3 20 SE* SORCC S4-A*S2-B*S5)/CCS-2)) 

3 30 R2* C A* S2*b* S5-CS*C Y*Y ))/( S4-CS*(Y*Y)) 

3 40 R* SORC R2):?:?:?"A-"I A; "B*"; b 
3 50 ?"SE»"; SE; "R*'*; R; "R-SOR*"; R2:? 


3 60 RETURN , 

400 ?" LINEAR CORRELATION"!? 

410 J9*0:K9»0:L9*0:M9*0:R9*0 
420 IN PUT" WH 1 CH VARI AbL ES"; V# V 1 : ? 

4 30 FORI*1 TOCS:J9*J9*DCI#V):K9*K9*DC I#V1) 

4 40 L9*L9*DCI#V)*DC1#V):M9»M9*DC 1# V1)*DC1# VI) 
4 50 NEXTI 


R9*R9*D< l# V)* DC VI ) 
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4 60 
470 
480 
490 

5 00 
5 10 
520 
530 
540 
550 

5 60 
600 

6 10 
620 
630 

6 40 
650 
6 60 
670 
680 
690 
692 
694 
700 

7 10 
720 
7 25 

7 30 

8 00 
8 05 
8 10 
8 15 
3 20 
8 25 
8 30 

835 
3 40 


B2* C C S*R9-J9*K9) / SQRC(CS*L9-J9*J9)*CCS*M9-K9*K9)) 

? **C0 EFFICIENT OF C0RRELAT10K CR)*",*R2 
? "COEFF I Cl ENT OF DETEMI NAT 1 ON ( R » 2) * R2* R2 

?:?:RETURN 

?" ** COVARIAN CE* *": ? 

1NPUT ,, WHICH VARIABLES"; VI, V2 
FORI*1T0CS 

C 1 - DC I , V 1 ) * DC I , V2 ) ♦ C 1 *REM SUM YX 
C2*C2+DCI, VI):C3*C3*ECI, V2> :NEXTI 
C8* 1/CCS-1)*CC1-C C2*C3/CS) ) : ? 

?"COVARI ANCE OF VAR I ABLES-/V1; "4"/ V2; "*";C8: ?: RETURN 

?:?TABC15)"***TWO WAY TABL E* * * " : ? TABC 1 5) "CATAGORl Cal. DATA" 

FORI*1T0 10:AC1)*0:BCI)*0:F0RJ*1T0 10:T(I,J)*0:NEXTJ:NLXT1 

1NPUT"V# FOR HORIZONTAL AXIS-/V 

INPUT-LOWER 4 UPPER BOUNDS";& 1,B2 

INPUT"*/# FOR VERTICAL AXIS"; VI 

INPUT-LOWER 4 UPPER BOUNDS"; &3,B4 

FOR 1-1 TO CS 

F0RJ*B1T0B2:F0RK*B3T0B4 

IFCDCI,V)*J) AND( DCI,V1)*K) THEN TCK,J)*TCK,J)*1 


NEXTK:NEXTJ:NEXTI 

FORI*B1T0B2:FORJ* B3T0B4:ACI)*ACI)*TCI,J) :N EXTJ:NEXT1 
FORI * B3TO B4: FORJ* B 1 T0B2 : B< I ) * BC I ) ♦ T< J, I ) sNEXTJ : NEXTI 
?:?TABC15)"***TW0 WAY TABLE**#-*?s?LSCVI)/"/"/LSCV)*? 
FORJ* B3T0B4:F0RI*B1T0B2 
?T( J# I ) J jNEXTI : ?A< J) : N EXTJ : ? 

FORI * B3T0 &4:?&<I);sNEXTIt? 


RETURN 

?"**PL0T**":? 

INPUT-WHICH VARIABLE-;V 

N*CS- 1 : Ml*DC 1/V) : MX*D( 1, V) : REM MIN 4 MAX 

FORI * 1 TON : I FMI «»DCCI*1),V)TH EN 8 20: EL SEM I*DCC1*1),V) 

I FMX> * D< CI*1)/V) THEN 8 25: EL SEMX* DC C !♦ 1 ), V) 

NEXT I 

DV*INTCCMX-MI)/50*1):REM RANGE SCALED TO 50 
?:?:?- PLOT OF VARIABLE";V 
?TABC14)/MI;TABC58);50*DV 


3 45 ? "OBS VALUE--- 

850 FORI*1 TOCS:J*<D<1, V)-MI )/DV:REM TAB VALUE 
8 55 ? i; TABC 5) ; DC I, V) ,* TABC 1 3); "I ••; TABC J* 15);-*- 
8 60 NEXT I : ? : ? 

8 65 RETURN 

9 999 END 


LISTING 3 

5 REM ** SABR** REGRESSION BY JOHN LEHMAN 9/78 

10 REM THIS MODULE PERFORMS MULTIPLE REGRESSION. PARTS OF 

11 REM THE PROGRAM A«E ADAPTED FROM /COMMOM BASIC PROGRAMS/ P.1 

12 REM THE USER CAN READ IN A DATAFILE, SAVE RESIDUALS AND 

13 REM EXAMINE THE RESIDUALS 

2 0 DIM VC 10), XC 10), SC 10), TC 10), LSC 10), AC 1 1, 12), RC 50), DC 25, 10), S 

25 ?" **SABR REGRESSION**":? 

28 INPUT-START READER 4 PRESS A KEY-;AS:TRACE 1 

3 0 GOSUB40:TS*XS:GO SUB60:VB*XX:GOSUB60:CS*XX 
32 FORI*1T0VB:G0SU640:LSCI)*XS:NEXTI 

3 5 FORI * 1 TOCS:FORJ*1 TOVB:G0SU&60:DCI,J)*XX:NEXTJ:NEXTI 
37 GOTO 80 

40 19*0:REM RETURN STRING IN XS 
45 19*19*1 


7 20 F0RI*2T0N*1* P*P*AC I,N*2)*< SC I ) - TC I ) * SC 1)/C S) :NEXT1 

750 R* SCN*2)-SC 1 ) * 2/CS 

760 Z*R-P*L*CS-N- 1 : I*P/R 

790 ?:?TABC 10);-R-SQUARED*-; I 

800 ?TABC 18);-R*-; SQRCI ) 

810 ?TABC10);-STD ERROR OF ESTIMATE*-;SQRCABSC2/L)) 

9 00 GO SUB 2000:REM CALCULATE RESIDUALS 
1000 ?*?:?"DO YOU WANT TO:- 

1010 ?" SAVE-SAVE RESIDUALS IN THE DATABASE- 
1020 ?" LIST-LIST RESIDUALS" 

1030 ?" HIST-HISTOGRAM OF RESIDUALS" 

1040 7" RETN-RETURN TO MAIN REGRESSION ROUTINE" 

1050 INPUT AS 

1070 IF AS*"SAVE" THEN GOSUB 2100 
1080 IF AS*"LI ST" THEN GOSUB 2200 
1090 IF AS*"HI ST" THEN GOSUB 2400 
1100 IF AS* —RETN" THEN 100 
1110 GOTO 1000 

2000 REM CALCULATE RESIDUALS 
2010 FORI * 1 TO C S 

2020 RCI)*AC1,N*2):REM CONSTANT 
2030 FOR J*2 TO N*1 

2040 RCI)*RCI)+ACJ,N*2)*DCI,VCJ-1)) 

2050 NEXT J 

2055 RCI)*DC1,V)-RCI) 

2060 NEXTI 
2070 RETURN 

2100 ?" SAVING RESIDUALS" 

2 110 VB* VB*1 

2 120 INPUT-LABEL FOR NEW VARIABLE"; LSCVB) 

2130 FORI*1T0CS:DCI,VB)*RCI)iNEXTl 

2 140 ? * ?-RESI DUAL S SAVED AS VC -; VB; ") ";LSCVB)x? 

2150 RETURN 

2200 ?" LISTING OF RESIDUALS":? 

2210 ?" Y Y-HAT RESIDUAL- 

2220 FORI - I TOCS: ? DC I, V) ; : P=AC l,N + 2) 

2 230 FORJ*1 TON*1:P*P*ACJ,N+2)*DCI, VCJ-1)):N EXTJ 
2240 ?TABC 1 0) ; P; TABC 20) ; RC I ) 

2250 NEXTI 

2260 ?:?:?:RETURN 

2400 ?" HISTOGRAM AND DESCRIPTIVE STATISTICS OF RESIDUAL- 

2410 GOSUB 2500:REM DESC 
2420 GOSUB 2600:REM DIST 

2430 GOSUB 2700:REM HIST 
2440 RETURN 

2500 REM ROUTINE DESC CALCULATES MINIMUM CMI),MAX CMX) 4 MEAN CM) 

2510 N 1 *CS- 1 

2520 MI * RC 1) :MX* RC 1) 

2530 FORI * 1 TON 1:IFMI<*RC1 ♦ 1) THEN 2540:ELSE Ml-RCI+1) 

2540 IF MX>*RCI♦1) THEN 2550:ELSE MX*RCI*1) 

2550 NEXTI 
2560 T*0 

2570 FORI * 1 TOCS:T*T+RC1):NEXTI:M*T/CS:REM MEAN 
2580 RETURN 

2600 REM DISTRIBUTION OF RESIDUALS 

2610 GOSUB 2300:REM COMPUTES RANGES OF RESIDUALS IN M5 
2620 Q*M5/ 6: REM IE 6 RANGES 

2630 FORI * 1 TO 6:XCl)*MI*1*Q:VC I)*0:NEXT1:REM CALC INTERVALS 
2640 FOR I-ITOCSsIF R(X)«X<I) THEN V(1)»V<I)+I 
2650 FORJ*2T06 
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50 SWITCH 2: INPUTSSC 19) x SWI TCH 3 x I FS S( 19 ) < >2 5 5 THEN 45 
5 5 J9*I 9- I x XS* ””x FORI 9* 1 T0J9 s XS-XS+ CHR$( SSC 1 9) ) xN LXT1 9 X RETURN 
60 G0SUB40xXX*VALCXS)sRETURN:REM LOAD NUMBER 
8 0 TRACE 0X ? ’’DATABASE LOADED’* 

81 ?”POSSIBLE COMMANDS AREx” 

82 ?” REGR--MULTIPLE REGRESSION” 

8 3 ?” STOP--END PROGRAM” 

84 ?” SAVE--SAVE DATABASE ON TAPE” 

100 ? x ? xIN PUT"COMMAN D”J AS 
110 IF AS*”REGR” THEN GOSUB 200 
120 IF A S* ’’SAVE” THEN GOSUB 3000 
130 IF AS* ’’STOP” THEN 9999 
140 GOTO 81 

200 ?”**MULTIPLE REGRESSION**” 

205 GOSUB 5000x REM CLEAR ALL VARIABLES 

2 10 INPUT”H0W MANY INDEPENDENT VARI ABLET’; N 
220 ? ’’ENTER VARIABLE NUMBERS* DEPENDENT FIRST” 

230 INPUT Vs FORI* 1 TON I INPUT VCDsNEXTI 

240 XC1)*1 

250 FORI*ITOCSxFORJ*1 TON 
270 X< J+ 1 )*DC I* VC J) > 

280 NEXTJ 

290 XCN+2)*DCI*V)J REM DEP VAR 
300 FOR K*1 TON*1x FOR L*1T0N^2 
320 ACK*L>*ACK*L)+XCK)*XCL>xSCK>*ACK*N+2) 

340 NEXT L 
350 NEXT K 

360 SCN*2)*SCN*2)+XCN+2) f 2 

3 70 NEXT I 

380 REM SOLVE SYSTEM OF EQUATIONS IN AC ) 

390 FOR I *2T0 N* 1 
400 T<I)*AC1*1) 

410 NEXTI 

420 FOR I-1T0N+1 

430 FOR J-l TO N*1 

440 IF ACJ*I)<>0 THEN 480 

450 NEXT J 

460 ?"MATRIX SINGULAR”s? 

470 RETURN 

480 FOR K*1 TO N*2 

490 B*ACI*K> X ACI*K)*ACJ,K)sACJ*K)*B 
520 NEXT K 
530 3* 1/AC I,I) 

5 40 FORK* l TO N+2 

5 50 AC 1* K)*Z*ACI* K) 

560 NEXTK 

570 FOR J* 1 TON♦ 1 

580 IF J*I THEN 630 
590 3* - AC J* I ) 

600 FOR K* lT0N«>2sACJ*K)*ACJ*K) + 3*AC I*K> 

620 NEXTK 
630 NEXTJ 
640 NEXT I 

6 50 ? x ? x ? 

660 7TABC 1 0) ;’’EQUATION COEFFI Cl ENTS”s ? 

670 ? TABC 1 0) ; ’’CONSTANT-”; AC l*N + 2) 

680 F0R1-2T0N+ 1 

690 ?tabc 10); ”v< vci-i>; ••) c ”;lscvci- l) );”)*••; a< i*n*2) 

700 NEXT I 

7 10 P* 0 


2660 IF NOTC RC I )<XC J) ) THEN 2680 

2670 IF RCI)<XCJ-1) THEN 2680 

2675 VCJ)*VCJ)*1 

2680 NEXT J 

2690 NEXTI 

2695 RETURN 

2700 REM SUBROUTINE HIST 

2710 PS*”************************************************************* 

2720 ?s?” HISTO GRAM"s ? 

2 730 ?’’MINIMUM*”; MI ; TABC 30) i ’’MAXIMUM*”; MX 
2740 ?”MEAN*”;M 
2750 J - 1 x REM COUNT 

2760 FORI * 1T06II FVC I ) >60 THEN J* 2 x I F VC I ) > 1 20THEN J* 3 
2 770 I FVC I ) > 18OTHEN J* 4s I FVC I ) > 240THEN J* 5 s N EXTI 
2780 ? ’’UPPER BOUND”! ? 

2 79 0 FORI* 1 TO 61 Q 1*VC I ) / J x AS-LEFTSC PS* Q 1 > s ?XC 1 ) ; TABC 5) ; "♦”# AS x NEXTI 
2795 RETURN 

2800 REM ROUTINE TO COMPUTE RANGE 
2810 M5-MX-MIxRETURN 

3000 REM SUBROUTINE TO SAVE FILES ON TAPE. FORMAT IS FILE-LABEL* 

3010 REM #V* #C* INLI VI DUAL LABELS* VI C 1 * VI C2* ETC. 

3020 INPUT”START PUNCH * PRESS A KEY”!AS 

3021 TRACE 1 

3 030 X S*T S x GOSUB30 70 x XX* VBsG0SUB3100X XX*CSx G0SUB3100 
3 040 FORI-1T0 VBxX$*LSCI) x GOSUB3070xNEXTI 

3 050 FORI*ITOCSx FORJ*1 TOVBxXX*DC I*J)sGOSUB3100xNEXTJsNEXTI 

3 060 TRACE 0 x ? ’’DATABASE SAVED”sGOTO 100 
3070 REM STRING SAVE IN XS 

3 08 0 FORI 9*1TOLENCXS)x SSC19)-ASCCMIDSC XS*I 9* 1 ) ) x N EXTI 9 xSSC 19)*25 5 
3 09 0 FORI 9*1TOLEN C XS)♦1x LPR1NTSSC19)s F0RK9*1 TO 75sNEXTK9 xNEXTI 9 
3095 RETURN 

3100 XS*STRSCXX)sG0SUB3070sRETURNsRLM NUMBER SAVE IN XX 
5000 REM CLEAR VARIABLES 

5 010 FORI*ITOVBxVC I)*OxXCI)*0xSCI)*0iTCI)*0xNEXTl 
5 020 FORI - 1T0VB* 1 x FORJ* 1 TOVB*2x AC I * J ) - Ox NEXTJ sNEXTI 
5030 RETURN 
9999 END 


LISTING 4 

ALTERNATIVE DATA SAVING AND LOADING ROUTINES 
FOR USE WITH A CONTROLLED READER/PUNCH 

800 REM SUBROUTINE TO SAVE FILES ON TAPE. FORMAT IS FILE-LABEL* 

801 REM #V* #C* INDI VI DUAL L ABEL S* V1 C 1 * VI C2* ETC. 

810 ?x?”**STARTING SAVE**” 

8 15 1NPUT”START PUNCH l PRESS A KEY WHEN READY”; AS 
820 LPRINT TSxLPRINTVBxLPRINTCS 
825 FORI-ITOVBxLPRINTLSCI)xNEXTI 

8 30 FORI * 1 TOCS s FORJ* 1 TO VBs LPR1N TDC 1* J) x NEXTJ xN EXTI 
835 ?”DATABASE SAVED”sRETURN 

900 REM SUBROUTINE TO LOAD A FILE FROM TAPE 

9 05 INPUT”START READER AND PRESS A KEY”; ASsTRACE 1 
910 SWITCH2 xINPUTTS:INPUTVBsINPUTCS 

915 FORI*ITOVBxINPUTLSCI)xNEXTI 

9 20 FORI* ITOCSx FORJ* ITOVBx INPUTDC I * J ) xN EXTJ xNEXTI 
9 25 SWITCH 3 
9 30 ?’’LOADED” 
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By David R. Witt 


As any salesman knows, the secret to survival in sales is 
keeping track of all the prospects in all the cities of his terri¬ 
tory complete with all the information about each and the 
details about the transaction. All this information must be at 
his fingertips. Using a micro to save time and keep all this 
data is the perfect solution. 

Presented here are programs being used to do the record 
keeping for a salesman of capital equipment to hospitals in 
three states. For example, every day he has to call on pros¬ 
pects and not only know their names and phone numbers, 
but know what they discussed the last time and what instru¬ 
ments they have and want. This requires accurate records, 
but also records that are immediately accessible. 

Running a weekly PLIST program of each state the sales¬ 
man operates in gives all the information needed. All that is 
required is for him to continue to update the records. Once 
this is done, no further effort is required to generate monthly 
reports of sales, prospects, instrument needs forecast, com¬ 
petition activity and many others. 

Using the R1 $ prospect code to store the code for users, 
prospects or lost sales, and using the P1 $ instrument to 
store the code for the instrument involved makes it easy to 
generate these types of reports. 

The random access database created and maintained by 
these programs is limited only by the size of system in use. 
Two files are created for the database: CLIENT1 which is all 
the routine information plus the type instrumentation involv¬ 
ed, and CLIENT2 which only contains the comments about 
the clients such as when to call or demo. This file can be 
deleted in a system that will not support multiple file access 
simultaneously. The next call data can be kept in G1 $. On 
the other hand there is room in CLIENT2 for much more 
data in Z1 $. 

Many modifications to this system are possible, including 
the use of multiple disk drives. The BASIC used is MITS on 
a MITS system with 48K memory, one disk drive and a 
QUME printer. By using the SALES program to input rec¬ 
ords, a database is built. This is the main program and the 
screen display on lines 110-230 is displayed whenever any 
function is completed or when the program is booted up. So, 
after start-up no programming knowledge is needed to run 
any of the functions. 


Each record is written and using D1 $ as a marker, the record 
is noted as being in use, open, or deleted. In the input routine 
the number of the last record written is stored in REF FILE so 
that the current next-open record number is used automatic¬ 
ally. Other default information can be kept here as well. 

The change in previously stored files is done by the CHANGE 
program but is called by the SALES program menu. To 
change a part of the record, hit return when good data is 
displayed and type in new data in place of the data that is to 
be changed. The new information will have the same record 
number as before. A great many types of reports are possible 
using the basic structure of the PLIST programs and chang¬ 
ing the extraction parameters. It is possible to search for a 
record or select and print a record using the appropriate file. 

Used in A1 $ and El $ are the string to integer conversions, 
so sort operations can be done by Zip Code. This can be ex¬ 
tended to area code as well. To sort by Zip, change line 200 to 
200 BL$ = MID$(Z$(L),30,4) and change line 210 in a 
similar manner. Also add BL = CVS(E1 $) for BL$ and Bl$. 
The structure of this extraction and sort program will support 
many types of operations by changing the variables used. 

Included is a chart of the variables used in the database. 
There is nothing that cannot be adapted to another type of 
product. There is also much room for data that is unused in 
the CLIENT2 file. 

One problem may be encountered in a system of lesser 
memory in the sorting program. It can be overcome by 
modifying the program to do the extraction and place the 
records in a subfile, then use the sort routine of the program 
to sort the subfile. 

The L INST, and the PLIST XX programs are missing be¬ 
cause they are the same as the PLIST KS program except 
the variable used in line 130 or 140 is changed as is also 
true of the LTL1ST program which only deletes lines 
130-140, and of course the headers in lines 270-300.□ 

ABOUT THE AUTHOR 

David R. Witt is a Sales Engineer for Gilford Instruments in 
the midwest. He has a MITS system, and uses BASIC to 
write many types of applications software. He has a Masters 
degree in Management, a Bachelors degree in Medical 
Technology, and has over 10 years experience in laboratory 
management and sales. 


86 INTERFACE ACE 


MAY 1979 










MAY 1979 INTERFACE ACE 87 


PROGRAM 1 


10 'SALES 

20 PRIHTCHR $(26) 

30 CLEAR 2000 

40 'PROGRAM MENU AND MAIN FUNCTIONS 
50 OPEN"R" ,# 1 , "CLIENT 1" , 0 
60 OPEK"R",#2, m CLIENT2",0 
70 OPEN"R",£3, M REF FILE",0 

80 FI ELD # 1 , 2 AS Al$,26 AS Bl$,l AS Dl$,4 AS El$,8 AS Gl$,l AS Hl$, 


20 

AS K1 $ 

, 15 

AS 

L 1 $,2 AS 

Mi 

$,12 

AS N1 $ , 8 AS 

26 

AS Ql$ 

,3 

AS 

R 1 $ 




90 

FIELD 

*2, 

2 

AS A2 $,8 0 

AS 

X2 $ 

,46 AS Z2$ 

100 

FIELD 

#3, 

4 AS C3$, 124 

AS 

Z 3 $ 


1 10 

PRINTCHR 

$(26) 




120 

PRINT 

: PR 

INT 

:PRINT" 



SALES ORGANI 

130 

PRINT 

: PR 

INT 

"SELECT THE 

FUNCTION DESIRED 

140 

PRINT 

: PR 

INT 

" E- 

EXAMINE 

A RECORD" 


150 PRINTzPRINT" 
160 PRINT:PRINT" 
170 PRINT:PRINT" 
180 PR1NT:PR INT" 
190 PR 1NT:PR INT" 
200 PRINT" S « 

210 PRINT:PR I NT" 
220 PRINT:PRINT" 
230 INPUT"COMMAND 


D« DELETE A RECORD" 

1= INPUT A NEW RECORD" 

C* CHANGE DATA IN A RECORD" 

P= PRINT PROSPECT LIST ON LINE PRINTER" 

T- PRINT ALL RECORDS ON LINE PR INTER":PRI NT 
SEARCH FOR RECORD # BY HS NAME" 

M«= 3500 PROSPECT LIST" 

Q- 
"; C$ 


LIST OF COMMANDS":PRINT 


240 

IF 

C$- 

"E" 

TH 

EN 

350 

250 

IF 

c$= 

”D" 

TH 

EN 

490 

260 

IF 

c$- 

ii j it 

TH 

EN 

550 

270 

IF 

c$« 

"c" 

TH 

EN 

930 

280 

IF 

c$- 

II p II 

TH 

EN 

940 

290 

IF 

c$» 

II <JI II 

TH 

EN 

990 

300 

IF 

c$» 

"S" 

TH 

EN 

1000 

310 

IF 

c$« 

"M" 

TH 

EN 

1010 

320 

IF 

c$= 

I.Q.I 

TH 

EN 

GOTO 


330 PRINT"INVALID COMMAND" 

340 GOTO 230 

350 INPUT"WHAT RECORD TO EXAMINE ";A 
360 GET #1, A 
370 GET # 2, A 

380 IF CVI(A1 $) - 0 THEN PRINT "EMPTY RECORD":GOTO 230 

390 IF D1 $<> " " THEN PRINT "DELETED RECORD":GOTO 230 
400 PRINT"RECORD";CVI(Al$),B1 $,G1 $ 

410 PRINT Q1 $ , H 1 $ 

4 20 PRINT K 1 $ , N 1 $ 

430 E1«CVS(E1$) 

4 40 PRINT L1 $ ; " , ";M1$,E1 
450 PRINT P 1 $ , R l $ 

460 PRINT 

4 70 PRINT;X 2 $:PRINT 
480 GOTO 2 30 

490 INPUT"WHAT RECORD TO DELETE ";A 
500 GET# 1 , A 

510 LSET D1$-"X" 'SET TO DELETE INDICATION 
520 PUT # 1 , A 
530 PRINT 
540 GOTO 2 30 


550 GET # 3, l 
560 A-CVI(C3$)+1 

570 PRINT"NEW RECORD # INPUT IS ";A 
580 GET # l,A 

590 IF Dl$«" " THEN PRINT "RECORD IN USE":GOTO 230 


600 LSET C3$-MKI$(A) 

6 10 PUT If 3 , 1 

620 LSET D1 $ *" " 'SET TO IN USE THIS RECORD # 
6 30 LSET A1 $ * MKI$(A) 

640 PRINT "CONTACT'S NAME " 

650 LINE INPUT B$:LSETB1$ = B $ 

660 LSET B 1 $ = B $ 

670 INPUT"DATE OF LAST CONTACT (MM/DD/YR) 

680 LSETC 1$«G $ 

690 PRINT:PRINT" 

700 PRINT" 

710 PRINT" 

720 PRINT" 

730 PRINT" 

740 PRINT" 

750 PRINT" 


*;G $ 


HOSPITAL TYPE IS AS FOLLOWS:" 
PRIVATE INST" 


MUNICIPAL HS" 

FEDERAL INST" 

UNIVERSITY" 

CLINIC" 

MENTAL HS" 

760 INPUT"HOSPITAL TYPE (P/M/F/C)";H$:LSETH1 $-H$ 

7 70 PR I NT"STR E ET ADDRESS":LINE INPUTK$:LSETK1$-K$ 

780 INPUT"GIVE ME CITY, STATE";L$,M$:LSETL1$«L$:LSETM1 $$ 
790 INPUT"GIVE ME ZIP CODE";E:LSETE 1 $-MKS$(E) 

800 INPUT"Phone Number ";N$ 

810 LSETN1 $«N $ 

820 INPUT"INSTRAMENT ";P$:LSETP1$-P$ 

830 PR I NT" IN HOSPITAL NAME USE STD ABBREVIATIONS" 

840 PR INT"HS“ HOSPITAL, MEM«= MEMORIAL, UN« UNIVERSITY" 


850 

INPUT"HOSPITAL 

NAME 

";Q$:LSETQ1$-Q$ 

860 

INPUT"PROSPECT 

” ; R $ : 

LSETR 1$-R$ 

870 

INPUT"COMMENTS 

"; x 3 $ 

:LSETX2$«X3$ 

880 

PUT #1, A 



890 

A 2 $■A 1 $ 



900 

PUT #2, A 



910 

PRINT 



920 

GOTO 230 



930 

RUN"CHANG E", 0 



940 

INPUT"PROSPECT 

LIST 

FOR WHICH STATE (KS,NE,IA) ";S$ 

950 

IF S$="KS" THEN 

RUN" 

PLIST KS",0 

960 

IF S$*"IA" THEN 

RUN" 

PLIST IA",0 

970 

IF S$«="NE" THEN 

RUN" 

PLIST NE",0 

980 

GOTO 940 



990 

RUN"LTLIST" , 0 




1000 RUN"SEARCH",0 
1010 RUN"L INST",0 


PROGRAM 2 


10 'CHANGE 
20 PR INTCHR $(26) 

30 CL EAR 2000 

40 'PROGRAM TO CHANGE 'CLIENT' FILES 
50 OPEN"R"1,"CLIENT1",0 
60 OPEN"R",*2,"CLIENT2",0 

70 FI ELD #1, 2 AS Al$,26 AS B1 $, 1 AS Dl$,4 AS El$,8 AS G1$,I AS Hl$, 
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20 AS K1 $ , 15 AS LI $ , 2 AS Ml$,12 AS Nl$,8 AS Pl$, 

26 AS Q1 $ , 3 AS Rl$ 

80 FI ELD ft 2, 2 AS A2$,80 AS X2$,46 AS Z2$ 

90 INPUT"CUST ft TO BE CHANGED"; A 

100 A$»" ":T $ *" ":U $■" ":V$«" ":X$«" ":Y$-" Z$ = " ":R$=" ":S$«" " 

110 G2$«" " 

120 X4$»" " 

130 U-0 

140 GET #1, A 

150 GET #2, A 

160 IF CVI(A1 $) * 0 THEN PRINT "EMPTY RECORD":GOTO 90 
170 IF D1 $<> " " THEN PRINT "DELETED REC0RD":G0T0 90 
180 PRINT"RECORD";CVI(A 1 $),B1 $ , G 1 $ 

190 PRINT Q1 $ , H 1 $ 

200 PRINT K1 $ , N 1 $ 

210 E1*CVS(E1$) 

220 PRINT L1 $;" , ";M1$,E1 
230 PRINT P1 $,R 1 $ 

240 PRINT 

250 PRINT;X2$:PRINT 

260 INPUT"CONTACT'S NAME ";T$ 

270 IF T$-" "THEN 290 
280 LSET B 1 $ -T $ 

290 INPUT"DATE OF LAST CONTACT (MM/DD/YR) ";U$ 

300 IF U$-" "THEN 320 
310 LSETG1$-U $ 

320 INPUT"HOSPIT AL TYPE (P/M/F/C/U)";V$ 

330 IF V$«" "THEN 350 
340 LSETH1$-V$ 

350 INPUT"STREET ADDRESS";X$ 

360 IF X$»" "THEN 380 
370 LSETX1 $«X$ 

380 INPUT"GIVE ME CITY, STATE";Y$,Z$ 

390 IF Y$-" "THEN 410 
400 LSETL1$-Y$:LSETM1$»Z$ 

410 INPUT"GIVE ME ZIP CODE";U 
420 IF U-0 THEN 440 
430 LSETE1$-MKS$(U) 

440 INPUT"Phone Number ";R$ 

450 IF R $ - " "THEN 470 
460 LSETN1$-R$ 

470 INPUT"INSTRAMENT ";A$ 

480 IF A$ = " "THEN 500 
490 LSET P1 $-A $ 

500 INPUT"HOSPITAL ";S$ 

510 IF S$-" "THEN530 
5 20 LSET Q 1 $-S $ 

530 INPUT"PROSPECT ";G2$ 

540 IF G2 $ - " "THEN 560 
550 LSET Rl$-G2$ 

560 INPUT"COMMENTS: ";X4$ 

570 IF X4$«" "THEN 590 
580 LSETX2$«X4$ 

590 PUT #1, A 
600 A2$ = A1 $ 

610 PUT ft2 t A 
620 PRINT 

630 INPUT"CHANGE ANOTHER (1-YES/ O-NO) ";R9 
640 IF R9-1 THEN 90 
650 RUN"SALES",0 


500 

IF 

CVI(A1$) - 

0 THEN PRINT "EMPTY 

RECORD":GOTO 730 

510 

IF 

D1 $<> " " THEN PRINT "DELETED 

RECORD":GOTO 

730 

520 

IF 

R 1 $<>"P " THEN PRINT "NOT PROSPECT":GOTO 

730 

530 

IF 

Ml$o"KS" THEN PRINT "NOT KS": 

GOTO 730 


540 

LPRINT" 

RECORD";CVI(A 1$) 

,B1$,G1$ 


550 

H$- 

, n n 




560 

IF 

HI $-"M"THEN 

H$«"MUNICIPAL" 



570 

IF 

HI $-"F"THEN 

H$*"FEDERAL" 



580 

IF 

HI $-"U"THEN 

H$-"UNIVERSITY" 



590 

IF 

HI $-"C"THEN 

H$-"CLINIC" 



600 

IF 

H1$«"P"THEN 

H$-"PRIV AT E INST" 



610 

IF 

HI $-"H"THEN 

H$="MENTAL HS" 



620 

LPRINT" 

" ; Q1 $ , H $ 



630 

LPRINT" 

"; K1 $,N 1 $ 




640 E1*CVS(E1$) 

650 LPRINT" "; Ll$;", ";M1$,E1 

660 LPRINT" "; Pl$ 

670 LPRINT 

680 LPRINT" "; X3$ 

690 LPRINT 

700 LPRINT" - 

710 P6-P6+1 'ROUTINE TO PAGINATE THE LIST FOR 8.5X11 PAPER 
720 IF P6-6 THEN GOSUB 750 

730 NEXTI , 

740 RUN"SALES",0 

750 FOR K-l TO 10 

760 LPRINT 

770 NEXT K 

780 P6-0 

790 RETURN 


PROGRAM 4 

10 'SEARCH 

20 ' SEARCH FOR RECORD NUMBER BY HS NAME 

30 PRINTCHR$(26) 

40 OPEN"R",2,"CLIENT1",0 

50 FI ELD # 2, 2 AS A2$,26 AS B2$,l AS D2$,4 AS E2$,8 AS G2$,l AS H2$, 

20 AS K2 $, 15 AS L2$,2 AS M2$,12 AS N2$,8 AS P2$, 

26 AS Q2 $,3 AS R2$ 

60 INPUT"HOSPITAL NAME TO SEARCH FOR ";M$ 

70 Z-LEN(M$) 

80 X-26-Z 

90 M$-M$+STRING$(X,32) 'FILL IN SPACES IN STRING 
100 PRINT 

110 PRINT"LOOKING" 

120 GET ft 2 

130 A2-CVI(A2$) 

140 IF A 2-0 THEN 220 

150 IF D2$<>" " THEN 120 

160 IF Q2$ <>M$ THEN 120 

170 PRINTTAB(20);"RECORD ft ";A2;;Q2$ 

180 PRINT 

190 INPUT"WANT ANOTHER (Y-YES) ";S$ 

200 IFS $-"Y"THEN 220 
210 RUN"SALES",0 
220 CLOSE:GOTO40 
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PROGRAM 3 


10 'PlIST KS 

20 'PROGRAM TO EXTRACT PROSPECTS AND SORT BY CITY 
30 CLEAR 10000 
40 DIMZ$(100) 

50 OPEN"R", 2,"CLIENT1",0 
60 OPEN M R u ,3,"CLIENT2" , 0 

70 FIELD 0 2, 2 AS A2$,26 AS B2$,l AS D2$,4 AS E2$,8 AS G2$,l AS H2$, 

20 AS K2$, 15 AS L2$,2 AS M2$,12 AS N2$,8 AS P2$, 

26 AS Q2$,3 AS R2$ 

80 FIELD 03,2 AS A3$,126 AS X3$ 

90 GET0 2 

100 A2 =C VI(A2$) 

110 IF A2»0 THEN 180 
120 IF D 2$ <>" " THEN 90 

130 IF R 2 $ < > " P ” THEN 90 'THE P DESIGNATES PROSPECT 
140 IF M2$o"KS" THEN 90 
150 K-K+l 

160 Z$(K)*A2$-fB2$4D2$+E2$+G2$4H2$+K2$+L2$+M2$+N2$+P2$+Q2$+R2$ 

170 GOTO 90 

180 FOR I * 1 TO K 

190 FOR L-I TO K 

200 BL$=MID$(Z$(L),63, 15) 

210 BI$-MID$(Z$(I),63, 15) 

220 IF BL $ <BI $ THEN SWAP Z$ (L) ,Z$(I):GOTO 240 

230 IF BL $>B I $ THEN 240 

240 NEXTL 

250 NEXTI 

260 PRINTCHR$ ( 26 ) 

270 INPUT"WHAT IS THE DATE ";Y$ 

280 LPRINT" ";Y $;" KANSAS" 

290 LPRINT 

300 LPRINT" PROSPECT LIST TERRITORY 258" 

310 LPRINT:LPRINT:LPRINT 

320 P6-0 

330 FOR I = 1 TOK 

340 'CONVERT Z$(I) TO FIELD 

350 A1$-MID$(Z$(I),1,2) 

360 Bl$* s MID$(Z$(I),3,26) 

370 D1$»MID$(Z$(I),29, 1) 

380 E1$-MID$(Z$(I),30,4) 

390 G1$**MID$(Z$ (I) , 34,8) 

400 H1$=MID$(Z$(I),42, 1) 

410 K1$«MID$(Z$(I),43,20) 

4 20 Ll$*MID $(Z $(I),63, 15) 

430 M1$«MID$(Z$(I),78,2) 

440 NI$=MID$(Z$(I),80, 12) 

450 P1$=MID$(Z$(I),92,8) 

460 qi$«MID$(Z$(I), 100,26 ) 

470 R1$=MID$(Z$(I),126,3) 

480 A*C VI(A 1 $) 

490 GET 03, A 


5 'SELECT 

10 PR INTCHR $(26 ) 

20 CL EAR 2000 

30 'LIST SELECTED RECORDS 
40 OPEN"R",01,"CLIENT 1" , 0 
50 OPEN"R",02,"CLIENT2",0 

60 FI ELD 01, 2 AS Al$,26 AS B1 $, 1 AS Dl$,4 AS El$,8 AS Gl$,l AS Hl$, 

20 AS K1 $, 15 AS L1 $,2 AS Ml$,12 AS Nl$,8 AS Pl$, 

26 AS Q1 $,3 AS Rl$ 

70 FIELD02, 2 AS A2$,80 AS X2$,46 AS Z2$ 

80 INPUT"RECORD NUMBER TO LPRINT ";A 
90 GET 01, A 
100 GET 02, A 

110 IF CVI(A 1 $) = 0 THEN PRINT "EMPTY RECORDGOTO 310 
120 IF DI $ < > " " THEN PRINT "DELETED RECORD":GOTO 310 
130 INPUT"INSERT PAPER & LINE UP TO PRINT (RETURN) ";R9$ 

140 LPRINT"RECORD";CVI(Al$),B1$,GI$ 

150 H$=" " 

160 IF H1$="M" THEN H$="MUNICIPAL" 

170 IF H 1 $ = "F" THEN H$ = "FEDER AL" 

180 IF H 1 $="U" THEN H$ = "UNIVERSITY" 

190 IF Hi$="C" THEN H$="CLINIC" 

200 IF H1$-"P" THEN H$="PRIVATE INST" 

210 IF HI $ = "H" THEN H$ = "MF,NTAL HS" • 

220 LPRINT Q1 $,H $ 

230 LPRINT K1 $,N1 $ 

240 E1«CVS(E1$) 

250 LPRINT L1 $;", ";M1$,E1 

260 LPRINT P1 $,R1 $ 

270 LPRINT 

280 LPRINT X2 $:LPRI NT 
290 LPRINT 

300 LPRINT"- 

-•• : LPRINT 

310 INPUT"ANOTHER ONE ";CR$ 

320 IF CR$="YES" THEN 80 
330 RUN"SALES",0 


FIELD VARIABLES LIST 


VAR | 

MEANING 

A 1 $ 

RECORD NUMBER 

B 1$ 

PERSONS NAME 

D 1$ 

FILE CONDITION 

E 1 $ 

ZIP CODE 

G 1 $ 

DATE OF LAST CONTACT 

H 1 $ 

TYPE OF INSTITUTION 

K 1 $ 

STREET ADDRESS 

L 1 $ 

CITY 

M 1 $ 

STATE 

N 1 $ 

PHONE NUMBER 

Pl$ 

INSTRUMENT 

Q1 $ 

NAME OF INSTITUTION 

R 1 $ 

PROSPECT CODE 

X 2 $ 

COMMENTS 

Z 2 $ 

UNUSED FILE SPACE 
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MICROCOMPUTER ANALYSIS 
OF RETURN ON INVESTMENT 

By Timothy J. Burke 


Business managers responsible for investment decisions 
are often faced with the task of selecting a course of action 
from among several alternatives, each of which may initially 
seem attractive. When the decision involves a major capital 
investment, the challenge becomes one of selecting the 
alternative most likely to yield the greatest return on invest¬ 
ment. In pursuit of this goal, many managers will utilize 
rather sophisticated methods to analyze the projected returns 
on the investment alternatives. The individual investor, who 
shares many of the same goals, in the past usually did not 
have access to the computer technology required to make 
these kind of analyses. With the advent of the pocket calcula¬ 
tor, and more recently the personal microcomputer, sophis¬ 
ticated computations can now be performed by virtually all 
small investors. 

We have developed a microcomputer program capable of 
analyzing the projected rate of return (ROR) for the small in¬ 
vestor. The program is written in Alpha-BASIC, and is de¬ 
signed for use on an Alpha-Micro computer system, but 
similar versions are available for PET, CP/M, TRS-80, 
Sorcerer, and Apple computers. The memory requirements 
are 8K of memory above and beyond that of the BASIC and 
operating systems. 

The program can be used to analyze the return on an invest¬ 
ment from three vantage points: (1) the Net Present Value of 
the Investment, (2) the Internal Rate of Return (IRR), and (3) 
the Adjusted Internal Rate of Return (AIRR). All three of these 
analytical models are particularly useful for those engaged in 
real estate investment, but they need not be limited to that 
application. The program can be used to analyze any invest¬ 
ment for which future income projections are available, and 
is particularly useful where the income will be generated in ir¬ 
regular amounts or at irregular intervals. 

Prior to explaining the program in more detail, it would per¬ 
haps be helpful to briefly review some of the basic concepts of 
investment analysis. There are many different ways to analyze 
the return on an investment. These are the most common. 

CAPITALIZATION RATE 

This can be defined as the “free and clear” cash flow (i.e. 
after debt service) divided by the purchase price. A simple 
example would be a property with a free and clear cash flow 
of $90,000 and a purchase price of $1,000,000. The capi¬ 
talization rate would be nine percent, calculated as follows: 

Capitalization Rate = free and clear cash flow = 90,000 = 9% 
purchase price 1,000,000 

Use of the capitalization process is fundamental to many 
areas of finance, but most notably to the income method of 
appraisal in real estate valuation. Used in this manner, the 
value of a property is estimated from the amount of income it 
produces, assuming a capitalization rate that is reasonable 
for the type of property involved. In the way that the term is 
used here, however, the capitalization rate itself is the un¬ 
known, while the purchase price of the property and the free 
and clear cash flow will generally be known or can be reason¬ 
ably estimated. 


The capitalization rate provides a fairly accurate measure 
of the return in those instances where there is an intial invest¬ 
ment of a fixed amount and the return is received in equal an¬ 
nual installments. To the extent that the cash flow departs 
from this pattern, the capitalization rate will be somewhat 
distorted as a measure of the true return. One reason for this 
is that the timing of the receipt of income is important. 

PAYBACK PERIOD 

This is the period of time required to recover the invest¬ 
ment. A $10,000 project with annual distributions of 
$2,500 for five years would have a four-year payback period 
($10,000 divided by $2,500). It is sometimes required that 
an investment proposal have a payback period of a certain 
period of time. Furthermore, it is not uncommon for a parti¬ 
cular project to be selected from among a number of alterna¬ 
tives because it has the shortest payback period. 

The payback period analysis is useful mainly in identifying 
the period of time that the invested funds would be at risk. 
Most investors are interested in receiving more than just the 
return of their invested capital. Nevertheless, some investors 
will prefer, for a variety of reasons, an investment with a rapid 
payback period rather than one with a slower payback period 
that will generate more in total income. 

ACCOUNTING RETURN 

This is the sum of all of the returns less the amount of the 
initial investment, divided by the term of the investment (ex¬ 
pressed in years), all of which is divided by the amount of the 
initial investment. In the case of the $10,000 investment 
previously discussed, the accounting return would be calcu¬ 
lated as follows: 

5(2500) - 10,000 

Accounting Return = 5 = 500 = 5% 

10,000 10,000 

The determination of the accounting return, unlike that of 
the payback period, takes into account all of the payments 
received over the entire term of the investment. 

The capitalization rate, the payback period, and the ac¬ 
counting return represent three important ways of ap¬ 
proaching a prospective investment. While each can provide 
certain perspectives, none incorporates all of the elements 
that might be desired in a comprehensive and meaningful 
measure of the return on an investment. It is therefore ap¬ 
propriate to identify some of the factors that should be taken 
into account by such a measure. Among them are: 

1. The amount, timing and ultimate tax consequences of 
the initial capital investment. 

2. The subsequent tax benefits and liabilities generated over 
the entire term of the investment. 

3. All cash flows from operations over the entire term of the 
investment. 

4. The proceeds of deficits created by the sale of the income- 
producing property, while allowing for all of the tax con¬ 
sequences. In certain cases this will include capital gains 
tax as well as the ordinary income tax liability arising from 
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the recapture of the excess of accelerated depreciation 
over straight-line depreciation. 

5. The recognition of the time value of money. A dollar re¬ 
ceived today is more valuable than a dollar to be received 
a year from now. 

None of the previously discussed measures of return on 
investment satisfy all of these criteria. Their chief short¬ 
comings include the recognition of equity build-up and ap¬ 
preciation prior to the time they are actually received in cash, 
the use of average figures, the failure to account for all of the 
cash and tax consequences over the entire investment cycle, 
and the failure to take into account the present value of in¬ 
come to be received in the future. 

Perhaps the most significant of these defects, as well as the 
most easily remedied, is the failure to utilize present value 
theory. This can be accomplished by “discounting” all 
future cash flows to reflect their present values. The face 
value of each future cash flow is multiplied by the appropriate 
discount factor. The discount factor is determined by two vari¬ 
ables: (1) how long into the future the payment is deferred, 
and (2) the required interest rate or rate of return. For any 
given interest rate and time period, the discount factor can be 
computed according to the following formula: 

Discount Factor =—-— r 

(i +if 

where: r = the annual simple rate of interest 

t = time period (in years) the payment is deferred 

Using this formula, the discount factor for a payment to be 
received a year from today, assuming a ten percent required 
rate of interest, would be 0.909, while the factor for a pay¬ 
ment received two years hence would be 0.826. 

t = J_ 0.909: 1 1 = 0.826 

(1+0.1) 1 1.1 (1+0.1) 2 1.21 

It is obvious from these examples that the discount factor 
varies inversely with the required rate of return and with the 
length of time over which the payment is deferred. There¬ 
fore, the present value of a future payment decreases when 
either the time period or the interest rate is increased. 

There are several models of investment analysis that utilize 
present value theory. Among the most important of these are 
Net Present Value, Internal Rate of Return, and Adjusted In¬ 
ternal Rate of Return. 

NET PRESENT VALUE 

To use this method it is necessary to calculate not only the 
present value of the proceeds expected from the investment, 
but also the present value of all of the outlays expected to be 
made during the term of the investment. The difference be¬ 
tween the present value of the proceeds (the positive cash 
flow) and the present value of the outlays (the negative cash 
flow) is the Net Present Value of the investment. The nega¬ 
tive cash flow generally includes the amount originally in¬ 
vested as well as any subsequent expenses or losses incurred. 

The process of calculating the present value of a cash flow 
or stream of income begins with the selection of the required 
rate of return. This is the rate that we hope to achieve from the 
investments. Once it is determined, it is possible to calculate 
the discount factor for any future date when income will be 
received (an inflow) or an expense will be paid (an outflow). 

To illustrate this concept, begin with a relatively straight¬ 
forward example of a series of positive cash flows. An invest¬ 
ment is expected to generate, in four annual installments, in¬ 
come in the amounts of $700, $400, $900, and $200. 
The required rate of return is 10 percent. The present value 
of these annual distributions would be: 




Discount 

Present 

Period 

Inflows 

Factor 

Value 

1 

$700 

0.909 

$ 636 

2 

$400 

0.826 

$ 330 

3 

$900 

0.751 

$ 676 

4 

$200 

0.683 

$ 137 

$1,779 


This series of positive cash flows has a present value of 
$1,779. This particular investment would be desirable if it 
could be purchased for $ 1,779. If so, the desired 10 percent 
rate of return could be realized. If the investment could be 
purchased for less than $1,779, it would be earning income 
at a rate greater than 10 percent, while if it cost more it would 
be yielding less. 

It is interesting to compare the results achieved using a 
present value method of analysis with the results achieved 
using the accounting rate of return method. If the previously 
mentioned income stream was purchased for $1,779, that 
would translate into a 10 percent rate of return under present 
value theory. The accounting return, however, would be 
something less than 10 percent. Since the sum of the four 
payments in the hypothetical is $2,200, the accounting 
return would be: 

2,200 — 1,779 

Accounting Return = 4 = 5.9% 

1,779 

The fact that the accounting return is less than the return 
calculated according to the present value method further il¬ 
lustrates the effects attributable to the time value of money. 
Under the accounting return method, the payment at the end 
of Year 4 is valued in the same way as the payment received 
at the end of Year 1. According to present value theory, 
however, a dollar received at the end of Year 4 is worth only 
about 75% as much as a dollar received at the end of year 1 
(0.683/0.909 = 75%), using a 10 percent discount rate. 
The present value model emphasizes discounted cash flows 
rather than accounting income taken at face value. 

As stated earlier, the Net Present Value is derived not only 
from the cash inflows, but also from the cash outflows asso¬ 
ciated with any investment. If we further develop the hypo¬ 
thetical by introducing some outflows, we would then be able 
to determine the Net Present Value. 

The primary outflow for most investments will be the initial 
capital outlay. Assume that the investment was purchased for 
$1,300, which means that in Year 0 it had a negative pre¬ 
sent value of $1,300. Assume further that the only other an¬ 
ticipated outflow will be in the amount of $500 at the end of 
Year 5. This negative value at the end of the investment per¬ 
iod might represent, for example, a loss of $500 realized on 
the sale of the income-producing property. It should also be 
noted that the terms “inflow’ and “outflow” refer to the net 
cash flow for any given year. Thus, a year in which income 
was earned in the amount of $900, and in which $600 worth 
of expenses were paid, would be characterized as having a 
cash inflow of $300. We can therefore assume that in Year 5 
a loss of $500 was incurred and that no income was earned. 
Given these facts, the present value of the negative cash flow 
of this investment is calculated as follows: 


Discount Present 


Period 

Outflow 

Factor 

Value 

0 

$1,300 

1.000 

$1,300 

5 

$ 500 

0.621 

$ 310 




$1,610 
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The Net Present Value of the investment is simply the differ¬ 
ence between the present values of the positive and negative 
cash flows. Hence: 

Present value of positive flow $ + 1,779 

Present value of negative flow $ -1,610 

Net Present Value $+ 169 

This particular investment has a Net Present Value of 
$ +169. Since this value is positive, a net gain will be real¬ 
ized from the investment. Beyond that, the Net Present 
Value figure may not really tell us much. The average inves¬ 
tor needs a basis for comparing investment alternatives, and 
the Net Present Value Model does not readily facilitate such 
a comparison. Furthermore, there is some element of risk in 
virtually every investment, but the analytical models present¬ 
ed here do not attempt to incorporate the risk factor. 

PROFITABILITY INDEX 

There is a tool, however, that can be used to compare the 
relative desirability of various investments. It is the Profit¬ 
ability Index, which is simply the ratio of the present value of 
the positive flow divided by the present value of the negative 
flow. The Profitability Index for our hypothetical would be: 

P.l. = Present Value of po sitive inflows = $1 ,779 __ -j -| 
Present Value of negative outflows $1,610 

The fact that the Index is greater than one indicates that an 
investment with cash flows of $-1300, $+700, $ + 400, 
$ + 900, $ + 200, and $ - 500 has an actual rate of return in 
excess of the desired 10 percent. When the Index is less than 
one, this means that the desired rate of return will not be 
achieved. If a 10 percent return is the sole criterion, then this 
investment would be selected. 

INTERNAL RATE OF RETURN (IRR) 

This measure can be defined as that interest rate which, 
when plugged into the discount factor formula, will cause the 
discounted value of the positive flow to equal the discounted 
value of the negative flow of a given investment. Since the 
IRR equates the present value of the positive and negative 
flows, it can also be interpreted as the rate that causes the Net 
Present Value to be zero. The equation could thus be ex¬ 
pressed as follows, using summation notation: 

n 

0 = X 1 (net cash flow — t) 
t=0 (1+rjt 

Where: n = total number of years in investment period 
t = year of cash flow 
r = Internal Rate of Return 
“net cash flow — t” = the net cash flow realized 
in Year t. 

An important consideration in computing the Internal Rate 
of Return is the assumption of the reinvestment interest rate. 
Basically this means that it is assumed that all cash inflows 
are reinvested in investments yielding a return equal to the 
Internal Rate of Return. This reinvestment process can be 
compared to an ordinary savings account. 

While the reinvestment assumption is valid for some in¬ 
vestments, it will not necessarily accurately reflect the true 
nature of other investments. The net effect of the reinvest¬ 
ment assumption is that it can tend to make good in¬ 
vestments appear to be better than they actually are and 
make poor investments look worse. The Internal Rate of 
Return nevertheless remains a useful analytic tool for screen¬ 
ing investment alternatives, so long as the user realizes that 
the actual yield on reinvested funds may not be equivalent to 
the Internal Rate of Return. 


The computational process required to derive the internal 
rate of return can be quite cumbersome. This is due largely 
to the fact that a series of iterations must be performed in 
order to identify the precise interest rate that will solve the 
IRR equation. The process is essentially one of trial and er¬ 
ror, and consequently can become quite tedious. In addition, 
multiple changes of sign (sequential changes from negative 
to positive to negative, etc.) must be dealt with, and this can 
present some problems. The use of a microcomputer can be 
a real boon in this area. 

ADJUSTED INTERNAL RATE OF RETURN (AIRR) 

This model is similar to the IRR model, except that it 
operates on the assumption that the earnings will be re¬ 
invested at a selected constant rate of interest. It is not assumed 
that the cash flows can or will be reinvested at a rate equal to 
the Internal Rate of Return. 

The investor is required to select a reasonable reinvest¬ 
ment rate and then assume that all future income will be re¬ 
invested at that rate. The AIRR is then computed by deter¬ 
mining the interest rate that will equate the discounted 
positive and negative cash flows. Again, the required mathe¬ 
matical computations are best accomplished with the aid of a 
microcomputer. 

A few observations can be made about the relationship ex¬ 
isting among the various models of return on investment 
analysis. For each model, values are known or assigned to all 
but one component of the relevant equation. The value of 
the unknown item is then calculated. In the case of the Pro¬ 
fitability Index the known items are the values of the inflows 
and outflows, as well as the desired interest rate chosen to 
discount those cash flows to their present value. The un¬ 
known item is the ratio of the discounted positive flow to the 
discounted negative flow. In computing the IRR and AIRR, 
values are also assigned to the projected cash inflows and 
outflows. The ratio of the discounted positive flow to the dis¬ 
counted negative flow is set at one. The unknown quantity is 
the precise interest rate necessary to achieve that equality. 

This discussion of financial analysis has been brief, and 
many important points cannot be covered. It should be ap¬ 
parent, however, that two different investments that produce 
the same accounting rate of return will not necessarily be 
equally desirable. The pattern and timing of the projected 
cash flows can be of great importance. The discounted cash 
flow methods are generally the most reliable because they 
can effectively deal with the uneven nature of the cash flows. 
Regardless of which analytical model is selected, it should be 
applied to each investment alternative so that there will be a 
meaningful basis for comparison. 

RATE OF RETURN 

The Rate of Return Program will calculate the following: 

1. The Net Present Value at n% 

2. The Internal Rate of Return (IRR) 

3. The Adjusted Internal Rate of Return (AIRR) 

For input, the Program will request the following: 

a. The investment amount 

b. The discount rate to be used 

c. The number of cash flows 

d. The entry of each of the cash flows 

The Program will allow the user to enter the flows in 
groups. For example, if you have 10 cash flows of $200 and 
20 cash flows of $300, you need not enter 30 entries, but 
rather only two. It also allows the user to enter the number of 
times per year the cash flows are received. This is an advan¬ 
tage if the cash flows are received monthly rather than yearly. 

The following examples are shown in the computer runs at 
the end of the program. The computer runs may look dis¬ 
torted if run on a printer, because they use CRT cursor con¬ 
trols, which have little meaning to a printer. 
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Example 1: An investor purchased an apartment complex 
for $100,000 by making a down pavment of 
$20,000 and financing the remaining $80,000. 
The apartment was held for 10 years, during 
which time its value appreciated. Upon sale, 
the investor netted $80,000 (as indicated by 
No. 10 below). The cash flows realized in the 
interim years were as shown below. What was 
the rate of return on this investment? 

1 . $ + 200 

2. $+ 400 

3. $ + 600 

4. $+ 2,000 

5. $+ 4,000 

6. $ + 5,000 

7. $ + 5,000 

8. $ + 5,000 

9. $ + 6,000 

10. $ + 80,000 

Example 2: An investor purchased a mortgage that cost 
$30,000. It will generate income of $321.59 
for 200 months, and then $300 for the next 
100 months. What is the rate of return? 

The program should work on any microcomputer using 
BASIC. The cursor controls are as follows: 

TAB(-1,0); clear screen 
TAB(-1, 2); return to beginning of line 
TAB(-1, 3); move cursor up one row 
TAB(-1, 4); move cursor down one row 
The Program will calculate the return by three separate 
methods, so the user may select the method that best suits 
the situation.□ 

ABOUT THE AUTHOR 

Tim Burke is vice president of The Basic Business Soft¬ 
ware Company, Incorporated, a software house. He has a 
B.S. degree from Notre Dame University and is involved in 
product development and distribution. 


It’s in the bag. 

What is? 

The biggest and best selection of microcomputer 
software anywhere. And the list grows bigger every day. 

CP/M configured for the most popular 8080/Z-80 
microcomputer systems and other terrific software, now 
available. Call or write for our latest literature. 

Lifeboat Associates, Suite 504, 2248 Broadway 
New York, N.Y. 10024/(212) 580-0082 



CIRCLE INQUIRY NO. 27 


SAMPLE RUN 1 


. PUN ROR R.O.P. 

YOU MAY ENTER CASH FLOWS EY: 

11) INDIVIDUAL CASH FLOWS 

12) GROUPS OF EQUAL CASH FLOWS 

PLEASE ENTER A ll) OR A 12) ? 2 


ENTER THE AMOUNT OF THE INVESTMENT ? 30000 


ENTER THE DISCOUNT RATE ♦%) ? 8.25 


ENTER THE NUMBER OF GROUPS OF CASH FLOWS ? _2 

CASH FLOWS 


FLFASE 

ENTER 

CASH 

FLCW 

NUMBER 

I 

? 

200 

PLEASE 

ENTER 

CASH 

FLOW 

NUKEER 

2 

7 

400 

PLFASE 

ENT EP 

CASH 

FLCW 

NUMBER 

3 

? 

600 

PLEASE 

ENTER 

CASH 

FLCW 

NUMBER 

4 

? 

7000 

PLEASF 

ENTER 

CASH 

FLOW 

NUMBER 

5 

? 

4000 

PLEASE 

ENTER 

CASH 

FLCW 

NUMBER 

6 

7 

5000 

PLFASE 

ENTER 

CASH 

FLCW 

NUMPER 

7 

7 

5000 

PLEASE 

ENTER 

CASH 

FLOW 

NUMPFP 

8 

? 

5 500 

PLFASE 

ENTER 

CASH 

FLCW 

NUMBER 

o 

7 

6000 

PLEASE 

ENTER 

CASH 

FLCW 

NUMBER 

JO 


? 8000 


HOW MANY TIMES ARE THE CASH FLOWS RECEIVED EACH YEAR 7 _1_ 

CASH FLOWS 


NUMBER 


AMOUNT 

J 

$ 

200.00 

2 

$ 

400.00 

■» 

$ 

600.00 

4 

$ 

2 , 000.00 

5 

$ 

4,000.00 

6 

$ 

5 , 000.00 

7 

$ 

5,000.00 

8 

$ 

5,500.00 

9 

S 

6 , 000.00 

JO 

$ 

80,000.00 


PATFS CF RETURN 
RESULTS 


THE INTERNAL RATE CF RET URN<IRR> • 2).24 t 


THE ADJUSTED INTEPNAL RATE CF RET URN<AIRR> • 19.5? I 


THE NET PRESENT VALUE<KPV> AT ?.5 % INTEREST • $ 28,046.07 


• END CF P*RCCR/N> • • 
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SAMPLE RUN 2 

. RUN FOR R ‘ 

YOU MAY ENTER CASH FLOWS BY: 

l]) INDIVIDUAL CASH FLOWS 
12) GROUPS CF EQUAL CASH FLOWS 
PLEASE ENTER A 11) OR A 12) ? 1 


ENTER THE AMOUNT OF THE INVESTMENT ? 20000 

ENTER THE DISCOUNT RATE 1%) ? 9.5 

HOW MANY INDIVIDUAL CASH FLOWS ARE THERE ? 10_ 

CASH FLOWS 

CASH FLOW CROUP NUMBER 1 : ENTER CASH FLCW ? 221.59 

NUMBER OF CASH FLCWS ? 2C0 

CASH FLOW CRCUP NUMBER 2 : EN7FR CASH FLCW ? ?00 

NUMBER CF CASH FLCWS ? JOC 


HOW MANY TIMES ARE THE CASH FLCWS RECEIVED EACH YFAP ? jj_2. 

CASH FLCWS 



NUMBER 

NUMBFR CF CASH FLCWS 

AMOUNT 



1 

200 $ 

221.59 



2 

100 $ 

3C0.00 




RATES Of RETURN 





RESULTS 




THE INTERNAL 

RATE OF RFTURN<)RR> - J2.J7 1 




THE ADJUSTED 

INTERNAL RATE OF RETURN<A1RR> - 9.45 t 




THE NET PRESENT VALUECNPV> AT P.?S \ INTEREST - S 

10,391.94 




••<END CF PPPCR>h>** 


PROGRAM LISTING 

10 REM THIS PROGRAM WAS WRITTEN BY: 

20 RFM TIMOTHY J. BURKE 

?0 REM THE BASIC BUSINESS SOFTWARE COMPANY 
40 REM POST OFFICE BOX 2032 
50 REM SALT LAKE CITY, UTAH 84110 
60 RFM I80J) 363-J199 

70 RFM COPYRIGHT NCVEMEFR 1, 1978 - ALL RIGHTS RESERVED 

100 RFM < RCR> <ALPHA BASIC 3•4XVERS1CN 3.1> <11/01/78> 

1 10 DIM X I4C0) ,7 13 0) , B#3C) 

120 SICNIFICANCE JO 

130 STRSIZ 30 

140 C$-”$#««,fH,H*.H" 

150 PRINT TAP 1-1 ,0) 

160 PRINT TAB 137) ;"R.C.R." 

170 PRINT TAP #37);-- - 
180 PRINT 
190 PRINT 


810 NEXT I 
820 X4=2.5 
830 GOTC 1370 
840 GCSUB 1720 

850 PRINT "ENTER THE NUMBER OF GROUPS OF CASH FLCWS "; 

860 INPUT Cl 
870 PRINT 

880 PRINT TAB 1-1,C) 

89C PRINT 

900 PRINT TAB |36);"CASH FLOWS" 

910 PRINT TAB 136);"--" 

920 PRINT 
930 PRINT 
940 FOR 1=1 TO Cl 

950 PRJNT"CASH FLOW GROUP NUMBER *; I ; " : ENTER CASH FLOW "; 

960 INPUT All) 

970 PRINT" NUMBER OF CASH FLOWS "; 

980 INPUT BII) 

990 PRINT 
1000 NEXT I 
1010 GCSUB 1720 

1020 PRINT "HOW MANY TIMES ARE THE CASH FLOWS RECEIVED EACH YEAR 
1030 INPUT PI 

I 040 PRINT TAB 1-1,0) 

1050 PRINT 

1060 PRINT TAE <36);"CASH FLCWS " 

1070 PRINT TAB 136);"--" 

JC80 FOR J=I TO Cl 
1090 FCR J=J TO BII) 

1100 X1=XJ4J 
1110 X1X1)=A I J) 

1120 NEXT J 
1130 NEXT J 
1140 PRINT 
1150 PRINT 

1160 PRINT TAB HO) ;"NUMBER";TAB 120) ;"NUMBER OF CASH FLOWS"; 

1170 PRINT TAB 148) ;"AMOUNT" 

1180 PRINT TAB I JO);"-" ; TAB 120) ; "----"; 

II 90 PRINT TAB 148) ; "-" 

1200 PRINT 

1210 FCR 1=1 TO Cl 

1 220 PRINT TAB ll3);I;TAB127) ;B II) ;TAB 142) ; 

1230 PRINT USING C$;AI1) 

12< C NEXT I 
1250 PRINT 
1260 PRINT 
1270 PRINT 
1 280 J 5 = .139 
1290 D8=IF-02 
J 300 P9 = 0 
131C P=0 

1320 FCR 1=1 TO Cl 

1 3 30 P8 = I ll- 11 +1 5/P 1 ) ~ l-B II ) ) ) / l J5/P1 ) ) *A 11 ) 

13<0 P=P+P8* I1 + I5/PJ)~ I-P9) 

1350 P9=P9+BiJ) 

1360 NEXT I 
1370 N5=X5-P 

1380 JF N5<-1E-04*X5 THEN 1410 
1390 IF N5>1E-04*X5 THFN 1500 
1400 GCTO 1580 
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200 

PRINT 

"YOU MAY ENTER CASH FLOWS 

EY: " 


210 

PRINT 




220 

PRINT 

" (3) INDIVIDUAL CASH 

FLCWS 

II 

230 

PRINT 

" 12) GROUPS CF EQUAL 

CASH 

FLCWS" 

240 

PRINT 




250 

PRINT' 

PLEASE ENTER A ll) OR A 12 

) 


260 

INPUT 

N 3 



270 

IF N3<>3 AND Nl<>2 THEN 150 



280 

PRINT 




290 

GOSUB 

1720 



300 

PRINT 

"ENTER THE AMOUNT CF THE INVESTMENT "; 

3 30 

INPUT 

X5 



320 

PRINT 




330 

GCSUB 

3720 



340 

PRINT 

"ENTER THE DISCOUNT FATEI%) "; 


350 

INPUT 

D5 



360 

PRINT 




370 

GOSUE 

3 720 



38 0 

D5=D5/3 00 



390 

IF N1 = 

■2 GCTC 850 



*00 

PRINT 

"HOW MANY INDIVIDUAL CASH 

FLCWS 

ARE THERE 

410 

INPUT 

Cl 



420 

PP INT 




430 

XI =C3 




4*0 

PRINT 

TAE (-1,0) 



450 

PRINT 




460 

PRINT 

TAB (36);"CASH FLOWS" 



470 

PRINT 

TAE (36);"-" 



480 

PRINT 





II , 


4 90 
500 
53 0 
520 
520 
540 
550 
560 
570 
580 
590 
600 
6 3 0 
620 
630 
6*0 
650 
660 
670 
680 
690 
700 
730 
720 
730 
740 
750 
760 
770 
780 
790 
800 


PRJNT 

FOR 1=3 TO Cl 

PRINT "PLEASE ENTER CASH FLOW NUMBER " ; I ; " " ; 

INPUT XII) 

PRINT 
NEXT I 
GCSUB 1720 
FOR 1 = 3 TC C3 

PRINT "HOW MANY TIMES ARE THE CASH FLOWS RECEIVED EACH YEAR 

INPUT PI 

PRINT 

PRINT TAE 1-1,0) 

PRINT 

PRINT TAB 136);"CASH FLOWS" 

PRINT TAE 126) ; "--" 

PRINT 

PRINT 

PRINT TAB 110) ;"NUMBER"; TAE I 25);"AMOUNT" 

PRINT TAB 130);"-" ; TAB (25);"-" 

PRINT 

FOR 1=3 TO C3 

PRINT TAB 113) ;1;TAB 12 3) ; 

PRINT USING C$;X 11) 

NEXT I 

PRINT 

PRINT 

PRINT 

15 =.3 29 

D8=.129 

P=C 

FOR 1=1 TO Cl 

P=P4XII)* 11415/PI)" l-I) 


3430 REM 
3420 REM 

3 430 D8 = I5* i IP-X5)/X5) 
3440 REM 


1450 
3 460 
3 470 
3 480 
3 49C 
J 500 
3 510 
1520 
3 520 
15*0 
1550 
3 560 
3 570 
3 580 
1600 
3 6 3 0 
3 640 
3 6 50 
3660 
3 670 
3680 
3690 
3 700 
3710 
3 720 
3 730 
3 740 
3 750 
3 760 
1770 
3780 
3 790 
1800 
18 3 C 
3 820 
3 830 
3 840 
3 850 

I860 
3 870 
3880 
3 890 
3 900 
1 9 TO 
3 920 
3*930 
3940 
3 950 
3 960 
3 970 
3 980 
3990 
2000 
2010 
2020 
2020 


15=15+D8 

IF 1500 THEN 1480 
I 5 = 3 E-02 

IF X4=2.5 THEN 780 

GOTO 3300 

REM 

REM 

D8 = 3 5* I IP-X5)/X5) 

REM 

15=154D8 

IF 1500 THEN 1570 
15 = 3 E-02 
GCTG 3480 
FOR 1 = 3 TC X 3 
REM 

F3= F3 4X 11) * * 1+D5/P3)^ IX3-I) 

NEXT I 

A 5= I l FI/ IP2+X 5))~ll/X3)-3)*100*P3 

FCR 1 = 3 TC X3 

P7-P7+X 11)* I 3 +D5/P1)~l-I) 

NEXT I 
N5 = P7-X 5 
GOTO 3730 
GCSUB 3720 

FCR 1=1 TO 80 : PRINT"-"; : NEXT I : PRINT : RETURN 

D5=D5*100 

PRINT TAB 1-1,0) 

FOR 1=3 TO 79 : PRINT"*"; : NEXT I 
PRINT TAB 1-3,2) ;TAB1-3,4) ; 

FCR 1 = 1 TO 21 PRINT" ** " ; TAB 177) ; " ** " : NEXT I 
FCR 1=3 TO 79 : PRINT"*"; : NEXT I 
PRINT TAE1-1,3);TABl-l,4);TABI-1,4); 

PRINT TAE • 30) ;"RATES OF RETURN";TAB (-1,2) ;TAB I-1 , 4) ; 

PRINT TAB 130);" RESULTS"; 

PRINT TAB 1-1,2) ;TAB 1-1,4) ; 

PRINT TAB 12); : FCR 1 = 1 TO 75 : PRINT" = "; : NEXT I 

PRINT TAE 1-1,2);TAB I-1,4) ;TAB 1-1,4); 

PRINT TAB(5);"THE INTERNAL RATE OF RETURN<IRR> = "; 

INT 115*3 00004.5)/‘l0C; 

PRINT"*"; 

PRINT TAE 1-1,2);TAB 1-3,4);TAB 1-3,4); 

PRINT TAE 12); : FOR 1 = 1 TC 75 : PRINT"-"; : NEXT I 

PRINT TAB 1-1,2) ;TAE1-1,4);TAB 1-1,4); 

PRINT TAB 15);"THE ADJUSTED INTERNAL RATE OF RETURNCAIRR> = "; 
PRINT 1NTIA5*1004.5)/10C;"%"; 

PRINT TAB 1-3,2);TAE1-1,4) ;TAB 1-3,4); 

PRINT TABI2); : FCR 1=1 TO 75 : PRINT"-"; : NEXT I 
PRINT TAB 1-1,2) ;TAB 1-1,4) ;TAB 1-1,4) ; 

PRINT TAB 15);"THE NET PRESENT VALUE<NPV> AT";D5;"% INTEREST = 
PRINT USING C$;N5; 

PRINT TAB 1-1,2) ;TAE I-1,4) ; 

PRINT TAE 1—3,2) ;TAB1-3,4); : PRINT TAB 12) ; 

FCR 1=1 TC 75 : PRINT"-"; : NEXT I 

PRINT TAP 1-1,2);TAB1-1,4) ;TABf-1,4) ;TAE 15) ;"**<END OF PROGRAM> 
PRINT TAB(-1,2) ;TAB 1-3 ,4) ; 

FCR 1 = 3 TC 5 : PRINT TAE 1-3,4); : NEXT I 

END 
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WORD 

PROCESSING 
IN BASIC 

A TRS-80 Letterwriter 

By C. L. Cooper, M.D. 


The medicine wagon rumbles into town and even before 
Doctor Stoutheart steps out the back onto his platform you 
can read the beautiful advertisement on the side of the 
wagon. You can tell immediately that his bottled Elixir of 
Ambrosia is for you; at least you want to believe, for you 
have the problems for which the advertisement proclaims a 
cure. Dr. Stoutheart begins his presentation and by now a 
small crowd has joined you at the back of the wagon, in¬ 
cluding a young boy who is later told to leave because he 
asks to try the elixir before buying it. 

In many ways, software advertisements are filled with Doc¬ 
tor Stouthearts, offering promises without allowing the 
buyers to sample the merchandise. After a visit to the small 
business microcomputer show in Pasadena last year I knew 
that just around the corner the answer to all of my business 
record keeping problems was about to emerge. Unfortu¬ 
nately, this has not happened. The programs necessary for 
the thousands of varied small businesses around the country 
will not emerge in a final form, but they will be developed a 
concept at a time and will go through an evolution of modifi¬ 
cations before becoming usable. 

Many of the present programs being offered by the software 
producers are falling short of expectations because of at least 
one major fault. The majority of the programs are like the 
elixirs of the past, offered without modification being readily 
availably and with a “buy it all or none of it” sales approach. 

A more realistic approach would be to offer a small portion 
of the program for an introductory price. If the partial pro¬ 
gram works out in an office on available equipment, with only 
minor alterations, the businessman would be in a position to 
purchase the remaining portions of the program or revision 
updates for his particular needs. The programs should be of¬ 
fered in a common language that can easily be modified by 
local people familiar with individual office needs. 

It is with this in mind that I am presenting an example of 
how I believe the business programs should be offered. The 
program is a simple text writer used for letter writing in my 
office, written for the TRS-80. 

When I first started my private practice I used computer 
billing through a large, well organized bank. But after a few 
years the increasing price made the program prohibitive. I 
switched to a service bureau computer billing program, but 
that did not work well. Attempting to find a reliable method, I 
attended the microcomputer convention in Pasadena and I 
was overwhelmed with what was “soon to be available.” I 
purchased a TRS-80 and began a self education program. 


The simplest program with which to work seemed to be 
word processing. This would solve many typing problems 
and make it easy to correct errors. But it didn’t work out the 
way I had planned. I began to receive a mini-course in what 
was yet to come with the larger programs and more sophis¬ 
ticated hardware systems. 

I purchased a word processor program along with a small 
interface to print the output on my modified Selectric 
typewriter. At the end of the week my secretary was in tears 
and my correspondence was a week behind. The program 
was hidden in machine language and there was no way to 
modify it to our needs. The text had to be saved and loaded 
on tape. It took the operator longer to process the typed text 
than it did for her to retype a corrected version from the 
beginning. I am not complaining that I was misled, for the ad 
clearly stated that it would be stored on cassette. 

In sharp contrast, at the time I purchased the above pro¬ 
gram I also purchased from the same company a small inter¬ 
face output device. In order for the hardware interface to 
work, a small software program, written in BASIC, had to be 
loaded prior to the main program. Because they had written 
the program in BASIC there was no problem modifying the 
program to meet our needs and actually incorporating it into 
a program such as the one being presented. But the word 
processor is sitting unused until we can trade it in on an im¬ 
proved version. Before I purchase any large business pro¬ 
grams it is going to be necessary for the provider to 
demonstrate the adaptability of his program to my needs. 

LETTERWRITER 

The LETTERWRITER as listed for this article is written for the 
TRS-80 with disk BASIC. It will work moderately well with 
only 16K of memory, however I recommend 32K. The primary 
limiting factor is the size of the sequential file that can be 
loaded for editing with the editor in BASIC. If hyphen-syllable, 
right justification, or page title and number routines are to be 
added, then 32K of memory becomes even more desirable. 

The program works very well with a TRS-80; more ex¬ 
pensive equipment is not really necessary. My CPU KEY¬ 
BOARD UNIT has not been modified for upper and lower 
case display; however, it has not been much of a problem in 
that I proofread from the Selectric typewriter printout. As the 
program progresses, it makes use of the TRS-80’s large 
print for instructions and small print for entering the text. 

After a brief introduction the menu sends the user off to 
one of two routines or turns back to BASIC for editing with 
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the text file already loaded for line-by-line editing. The text 
creation routine makes use of the line input statement for the 
creation of a series of strings that can be entered without 
regard for punctuation or quotation marks. 

In order for the lines to be kept a reasonable length during 
the hardcopy routine, an ENTER is hit at the end of each 
screen line on the CRT. If it runs over a little, there is no prob¬ 
lem. Just finish the word and then hit ENTER. As the strings 
are recorded on the disk a sequential line number and re¬ 
mark statement are added for use in editing. A short tab 
space routine is available for the first line of a paragraph or 
for an individual line entry. This is accomplished by typing in 
an upward pointing arrow followed by a delineater number. 
The routine creates a space string as long as the listed 
delineater; this then precedes the entered line input string. 

At the end of a single line entry (date, address, salutation, 
etc.) or at the end of a paragraph an “#” is typed in for a 
code to be used by the printout routine. At the end of the text 
creation an “@” is typed in as a printout code and as a signal 
to the program that the text creation has come to an end for 
the time being. 

The other available routine is the printout; this will be ex¬ 
plained later with the listing description. It is possible to have 
the printout with or without line numbers; the line numbers 
facilitate editing by hard copy. 

LINE NUMBER EXPLANATIONS 

Line 30 

The letters A-Z are defined as integers and the beginning 
line number (L#) is set at 1000 (actually the HEADER will 
have the number 1000 and the first TEXT line number will 
be 1010). The CLEAR statement of 1000 can be reduced if 
less memory is used. 

Lines 40-120 

The MENU is listed and the program is directed to the cor¬ 
rect portion of the text processing routine. 

Lines 3000-3060 

A file is opened after first checking to see if there is already a 
file present by the same name by use of ERROR CODES. 

Lines 3070-3080 

The HEADER is created, assigned the first line number and 
then recorded as the first entry on the newly created sequen¬ 
tial file. 

Line 3110 

The input is generated with LINE INPUT statements so the 
strings can be entered without regard for commas or quota¬ 
tion marks. 

Lines 3120-3125 

This is a space string routine that is created by using the 
STRINGS function of the TRS-80 whereby a string of blank 
spaces can be created as well as a string of any other charac¬ 
ter. This function is also used later in the program for blank 
line creation when more than one LINE FEED is desired. 
The “[” in the listing is an upward arrow on the keyboard. 

Lines 3130-3180 

I almost didn’t include this routine in the “introductory” 
listing, however, it makes the program run much better. This 
is a string dividing technique that lets you type in your pro¬ 
gram any way you please as long as you occasionally hit an 
ENTER after either completing a word or a sentence. If you 
forget and go for a full 255 characters without hitting 
ENTER, you will have to stop, back up and hit ENTER after 
the last completed word or sentence. Without the string 
dividing routine the lines for numbered hard copy have a 
tendency to be too long if you forget to hit ENTER at the end 
of each line. 


Line 3190 

This records the lines that are less than 65 characters long. 
Both of the above routines will add a line number and a 
REMARK abbreviation prior to recording the string in the 
file. The line numbers are used for editing the hard copy and 
for line manipulation within the program. 

Line 3200 

Closes the file and gives you a chance to request a hard copy 
printout. 

Lines 3210-3260 

The print out at this point can be with or without numbers. If 
you do not want line numbers listed it gives you a sample 
copy of the final printout routine. “Z=1” is a code to the 
print routine designating a return to EDIT when the hard 
copy is complete. “LS” is the double space code. “L” is the 
cumulative variable that stops the printout with line numbers 
when it is time to change the sheet of paper in your type¬ 
writer. Because the strings are continuously being recorded 
in the file, you are never working with a large string number, 
thus less memory is required. 

Lines 4000-4110 

The final editing will have to be done in the BASIC EDITOR 
of your equipment, however, a printout routine and a re¬ 
minder that the edited file must be re-entered with an ASCII 
SAVE statement at the completion of the editing is included. 

Line 5030 

“LL” = line length control 
“PL” = page length control 
“X” cumulative line printings code 
“T” = title and page numbering control 
“LS” = double space code 

Lines 5040-5050 

Opens the desired file and gives you the first string recorded, 
from which it removes the line number, REMARK statement 
and prints it on the screen as the HEADER. 

Line 5120 

Begins the series of strings that will make up the TEXT. 

Line 5130 

Blank line printout routine. 

Line 5140 

Removes the line numbers and the REMARK statement from 
the strings. 

Line 5160 

Adds a SHORT STRING or a REMAINDER STRING pre¬ 
viously received to the beginning of the latest string from the 
file. They are then handled as a single string. 

Lines 5200-5295 

A line or string that is shorter than the line length plus one is 
examined to see if it should be printed as a last line in a para¬ 
graph, the last line in the text, or as an entire line if it happens 
to be the exact line length. If not, it is converted to a re¬ 
mainder string and sent back with a trailing space to precede 
the incoming string from the file. 

Lines 5340-5430 

A string longer than the line length is divided at the first 
space shorter than the line length plus one. The trailing 
blank is removed and the remainder becomes the RE¬ 
MAINDER STRING. The leading blanks are removed from 
the REMAINDER STRING. If the hyphen routine is to be used 
the leading blanks should be maintained temporarily. 

Lines 5540-7000 

Once the LINE STRING for printing is defined, it is printed 
and the number of lines printed is compared to the page 
length. If the number is sufficient, the program is stopped 
while the paper is changed in the typewriter.□ 
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SAMPLE RUN 


NAME# 

ADDRESS# 

STATE# 

Dear Sir,# 

15 

This is a sample of how your screen would look during a 
typical letter writing exercise. Where this letter shows a 
capital ”144" for the space command the screen would actually 
show an upward arrow with 44 immediately following it.# 

15 

I can't actually show the upward arrow because it is a 
command code and it will not print out on the screen as letter 
text. The final paragraph.# 

144 

Respectfully,# 

144 

C. L. Cooper, M.D.@ 


PROGRAM LISTING 

10 ****** * LETTERWRITER BY C. L. COOPER 1978 ****** 

20 'LINE #1000-2900 LEFT BLANK FOR SERIAL PRINTER ROUTINE 
SUCH AS THE TRS232 SMALL SYSTEMS ROUTINE IN BASIC 

30 DEFINT A-Z:CLEAR10 0 0:L#-10 0 0:CLS 

40 PRINT CHR$(23):PRINT"* * LETTERWRITER TEXT CREATION * *" 

50 PRINT"ENTER TODAY'S DATE (MM/DD/YY) ?" 

:INPUT D8$ :PRINT:PRINT :IF LEN(D8$)<>8 GOTO 50 

60 PRINT CHR$(23):PRINT"* * TEXT CREATION PROGRAM * *" 

:PRINT"THE FUNCTIONS AVAILABLE ARE:":PRINT 

70 PRINT"1. - BUILD A TEXT OR LETTER":PRINT 

:PRINT"2. - EDIT A PREVIOUSLY PREPARED TEXT" 

.•PRINT" (EDITOR IN BASIC WILL BE USED)":PRINT 
:PRINT"3. - PRINT COPY OF A PREVIOUSLY PREPARED TEXT" 

:PRINT 

110 INPUT"WHICH WOULD YOU LIKE TO DO";Q3:IFQ3<1 OR Q3>3 THEN 70 


3215 INPUT"7DOUBLE SPACE (Y OR N)";Q$ :IF Q$="Y"THEN LS=2 

3220 CLS:PRINT CHR$(23):PRINT"* * TURN ON PRINTER * *":PRINT 
:INPUT"HIT ENTER WHEN READY";XZ$:L=0 

3230 IF EOF(1) THEN CLOSE1:CLS:RETURN 

3240 LINEINPUT#1,A$:LPRINTA$:L=L+1:IFLS=2THENLPRINT" ":L=L+1 
3250 IF L>50 INPUT"CHANGE PAPER - HIT ENTER TO CONT";XZ$:L=0 
3260 GOTO3230 

4000 ***** CREATION TEXT EDIT ROUTINE ************ 

4010 CLS:PRINT CHR$(23):PRINT"EDIT ROUTINE - - IN BASIC'EDITOR" 

4020 PRINT:PRINT"WHEN THROUGH EDITING YOU MUST" 

:PRINT"SAVE THE EDITED PROGRAM WITH" 

:PRINT"THE ASC II COMMAND":PRINT 

:PRINT TAB(8)"SAVE";CHR$(34)?"FILENAME";CHR$ (34) ;",A" 

4030 PRINT:INPUT"HIT ENTER TO CONTINUE";XZ$:CLS 

4040 INPUT"TYPE DESIRED TEXT FILENAME FOR EDIT AND HIT ENTER";F7$ 

4045 INPUT"WOULD YOU LIKE A HARD COPY OF FILE PRIOR TO EDIT";Q$ 

: IFQ$O"N"G0SUB321 0 

4 050 ' * *• * CRT REVIEW ROUTINE STARTS HERE IF DESIRED 

4100 CLS:PRINTCHR$(23):PRINTF7$:PRINT"WHEN READY TO RETURN TO"; 

" BASIC":PRINT"FOR EDITING THE ABOVE FILE HIT' ENTER" 

:PRINT:PRINT"REMEMBER TO SAVE IN ASC II " 

:PRINT"AFTER EDITING" 

4110 INPUT"AFTER FILE LOADS TYPE 'EDIT #' TO BEGIN EDIT";ZX$ 

:LOAD F7$ 

5000 '* * * * PRINTER ROUTINE ***************** 

5030 CLOSE1:LL=72:PL=44:X=0:Z=0:T=0:LS=1:CLS 

5040 PRINT CHR$(23):PRINT"* * PRINTER ROUTINE * *" 

-.INPUT"ENTER FILENAME" ;F7$ :OPEN"I" , 1 ,F7$ 

5050 LINEINPUT#1,A$:PRINTMID$(A$,INSTR(A$,"'")) 

5060 INPUT"LINE LENGTH 30-90LL:INPUT"PAGE LENGTH 3-55";PL 

:INPUT"? DOUBLE SPACE (Y OR N)";Q$:IFLEFT$(Q$,1)="Y"THENLS=2 

5070 IF LL<30 OR LL>90 THEN 5060 

5080 IF PL<3 OR PL>55 THEN 5060 

5090 INPUT"HIT ENTER WHEN READY TO PRINT";XZ$ 

:PRINT"* * TEXT PRINTING * *" 

5100 IF EOF (1)THEN CLOSE1:CLS:IFZ = 1 GOTO 4100 ELSE 60 
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120 ON Q3 GOTO 3000,4000,5000 

1000 'BASIC PROGRAM FOR INITIALIZING TRS232 PRINTER INTERFACE 

3000 '* * * * TEXT CREATION ***************** 

3010 CLS:PRINT TAB(16)"* * TEXT CREATION * *":PRINT 

3020 INPUT"TYPE A TEXT FILE NAME";F7$ 

:1FLEN(F7$)<1ORLEN(F7$)>7THENPRINT"LIMIT TO 7 CHARACTERS!" 
:GOTO 30 20 

3030 IF ERR/2+1=54 GOTO 3060 
3040 ON ERROR GOTO 3030 
3050 OPEN "I",1,F7$:CLOSE 

:PRINT"FILE ALREADY EXISTS BY THAT NAME":GOTO 3020 
3060 OPEN "O",1,F7$ 

3070 A$=STR$(L #)+" 1 "+"FILENAME * "+F7$+" CREATION DATE: "+D8$ 

3080 PRINT#1,A$:L#=L#+10:PRINT"HEADER WILL READ ** "; 

MID$(A$,INSTR(A$ , " ' " ) +2):PRINT 

3100 PRINT"= = = BEGIN TEXT ENTRY = = = " 

3110 LINEINPUT A$ 

3120 IF LEFT$(A$,1)="[" THEN SP=VAL(MID$(A$,2)) 

: IF SP>1 AND SP<64 THEN S$=STRING$(SP," ") 

:PRINT S$; rLINEINPUT A$:A$=S$+A$ 

3125 IF LEFT$(A$,1)="[" AND SP<2 OR SP>63 PRINT 
"INCORRECT DELINEATER":GOT03110 

3130 IF LEN(A$)<65 THEN 3190 

3140 FOR 1=65 TO 10 STEP -1 

3150 IF MID$(A$,I,1)=" "GOTO 3160 

3155 NEXT 

3160 T$=LEFT$(A$,I) :A$=MID$(A$,1+1) 

3180 T$=STR$(L#)+"' "+T$ :PRINT #1,T$ :L#=L#+10 :GOTO 3130 

3190 A$=STR$(L#)+"' "+A$ :PRINT #1,A$ :L#=L#+10 
: IF RIGHT$(A$,1)="@"THEN 3200 ELSE 3110 

3200 CLOSE1:PRINT"ENDING TEXT CREATION":PRINT 

: INPUT"WOULD YOU LIKE HARDCOPY LISTING OF YOUR TEXT";Q$ 

: IF LEFT$(Q$,1)<>"Y"THEN60 ELSE GOSUB3210 

3205 GOTO60 

3210 OPEN"I",1,F7$:PRINT 

:INPUT"DO YOU WANT LINE NUMBERS LISTED";Q1$ 

:IF LEFT$(Ql$,1)<>"Y"THENZ=1:LS=1:GOT05050 


5120 LINEINPUT#1,A$ 

5130 IF LEN(A$)<8 THEN LPRINT" ":X=X+1 
:IFX>PL-2 GOSUB 7000 ELSE 5100 

5140 A$=MID$(A$,INSTR(A$,"'")+2) 

5160 IF LEN(B$)>0 THEN A$=B$+A$:B$="" 

5180 LA=LEN(A$):IF LA<=LL+1 THEN 5200 ELSE 5300 

5200 '* * SHORT LINE ROUTINE FOR PARAGRAPH AND END CHECK * * 

5210 IF RIGHT*(A$,1)="# H THEN A$=LEFT$(A$,LA-1) 

:LPRINT A$:A$="":X=X+1:IFLS=2 THEN LPRINT" ":X=X+1 

5240 IF RIGHT$(A$,1)="@"THEN A$=LEFT$(A$,LA-1) 

:LPRINT A*:A$="":CLS:CLOSE1:IFZ=1 GOTO 4100 ELSE 60 

5260 IF LA=LL AND RIGHT*(A$,1)<>"#" AND RIGHT$(A$,1)<>"@"THEN 
LPRINT A$:A$="":X=X+1:IF LS=2 THEN LPRINT" ":X=X+1 

5280 IFX>=PL GOSUB 7000 

52 90 IFLEN (A$)>0THENB$=A$: A$ = "":IFRIGHT*(B$,1)<>" "THENB*=B*+" " 
5295 GOTO 5100 

5300 '* LONG LINE ROUTINE FOR DIVIDING A$ INTO L$ AND B$ * 

5320 IF LL>=LA THEN 5180 
5340 FOR I=LL+1 TO 5 STEP-1 

5360 IF MID$(A$,1,1)=" "AND MID$(A$,1-1,1)<>" "GOTO5400 
5380 NEXT 

5400 L$=LEFT*(A*,1-1):B$=MID$(A$,I+1):A*="":N=LEN(L$) 

5430 IF LEFT*(B*,1)=" "THEN B$=MID$(B$ r 2):GOTO 5430 
5440 • * * * SYLLABLE GOSUB IF LL-N > 5 

5450 • * * * RIGHT JUSTIFICATION GOSUB IF DESIRED 
5500 '* PRINT ROUTINE * 

5540 LPRINT L*:L* = "":X=X+1:IF LS=2 THEN LPRINT" ":X=X+1 
5550 IF X>=PL GOSUB 7000 
5560 GOTO 5160 

7000 PRINT CHR* (23) :PRINT.:PRINT"CHANGE SHEET OF PAPER" 

:INPUT"TYPE IN NEW PAGE LENGTH IF CHANGE NEEDED";PL 

:INPUT"HIT ENTER TO CONTINUE";XZ$:X=0:CLS 
:RETURN 

7010 ' * * * TITLE PAGE NUMBER ROUTINE *********** 
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BUSINESS SOFTWARE 


• CP/M and IMDOS Compatible! 

• Complete Documentation and Source Code! 

• Fully Integrated — Auto Chaining! 

• Low Cost — Very Easy to Use! 

• Extensive Operators Manuals/8” Floppy Disks 


CBASIC-2 


$395 

EACH 


MBASIC 


PRICES ON 
REQUEST 


GENERAL LEDGER 
ACCOUNTS PAYABLE 
ACCOUNTS RECEIVABLE 
INVENTORY MGMT SYSTEM 
PAYROLL PROGRAM 
DENTAL MGMT SYSTEM 
MEDICAL MGMT SYSTEM 
REAL ESTATE MULTI-LIST 
INSURANCE AGENCY 
EMPLOYMENT AGENCY 
CREDIT UNION SYSTEM 
NAD/MAILING LIST 


INTEGRATED WORD 
PROCESSING/NAD 
DISK-SORTING PROGRAMS 
UNIVERSAL DATA ENTRY-EDIT 
FINANCIAL ANALYSIS 
SUPER-SORT III 

LANGUAGES/MISC 

CBASIC AND CBASIC-2 
MBASIC 5.0 
COBOL 80 
ELECTRIC PENCIL 


- PLUS - 


NUMEROUS OTHER PROGRAMS UNDER DEVELOPMENT. IF 
YOU EVER WANTED A SINGLE SOURCE FOR YOUR BUSINESS 
SOFTWARE NEEDS - LOOK NO FURTHER! 

**COMPLETE DATA BASE MGMT SYSTEM — SOON!** 

- ALSO - 

MAJOR DISCOUNTS ON IMSAI, DIABLO, TEXAS INSTRUMENTS 
CENTRONICS, CROMEMCO, DEC, NORTH STAR, NEC, AND 
OTHER MANUFACTURERS 


UNIVAIR INTERNATIONAL 

10327 LAMBERT INTERNATIONAL AIRPORT 
ST. LOUIS, MO 63145 U.S.A. 
TELEPHONE 314-426-1099 TELEX 44802 


CIRCLE INQUIRY NO. 53 


Z' ALPHA - MICRO 

MENU DRIVEN 


WORD PROCESSOR 

IDIOT PROOF 



DOCUMENT PROCESSOR 

• Full screen editing (Equivalent to AMOS VUE Program) 

• Comprehensive formatting commands inserted directly in 
text 

• Optional list and standard paragraph insertions directly in 
text 

• Text interactively stored on disk 

STANDARD PARAGRAPH OPTION 

• Numbered paragraphs may be inserted in document or 
other numbered paragraphs 

• Full screen editing 

LIST PROCESSOR 

• Variable record structure 

• Full search and edit capability 

• User selected data item keys 

• Data items in list may be inserted in document or standard 
paragraphs 


DOCUMENT PROCESSOR.$200 

• with standard paragraph option .$400 

• with list processor option.$400 

• with both options.$600 

LIST PROCESSOR ONLY.$200 


Shipped on 8 inch floppy disk with full documentation 
Accepting prepaid orders only for delivery in May/June 

J. M. OBERHOLTZER, Computer Engineers 
3915 Humboldt Drive, Huntington Beach, CA 92( 
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_JTWO VIEWS 

By Jim Schreier, Associate Editor 

Any red-blooded business can be judged by how much is 
taken in and how much is spent and how much is left over. 
The purpose of this article is to examine some profit potential 
on what is taken in and how much is spent. Two very short 
programs can be run on a microcomputer, answering ques¬ 
tions often asked but very time consuming to hand calculate. 
These programs are the cost of riding payables on one hand 
and the effectiveness of receivable collections on the other. 

The federal government says trade receivables have grown 
243% between 1955 and 1977. This may be caused by an 
expanding credit economy. However, during the same 
period of time, bad debt losses have increased seven times. 
Many businessmen believe stretching out their payables may 
provide a very cheap source of business capital. The ques¬ 
tion is, then, how much can you save by riding the payables 
and skipping the discounts? 

A DISCOUNT 

Let’s say a company has a new shipment of floppy disks for 
its computer and the terms are 2%/10 net 30. This may be 
translated to: If the invoice is paid within 10 days of shipment 
there is a 2% cash discount. If, however, you wait until the 
11 th day you surrender the discount and the invoice becomes 
payable in full and will be judged delinquent 30 days from 
shipment. But if you pass up the discount, what will it cost? 

The BASIC program “Accounts Payable Discount” 
(Figure 1), uses the following formula: 

C = (P/(F-P) * Y/L) * (100) 

In this formula C is the cost of failing to discount, P is the 
percentage of allowable discount, L is the difference of the 
allowed discount date and the due date, F is the constant, 
100, and Y is the “banker’s year, 360 days. 

Since the disks have the terms 2%/10 net 30 the formula has 
the following figures: C = 2/98 * 360/20 or .0204 * 18. This 
gives 36.72%. In other words failing to take the 2% discount 
costs over 36% annually based on annual rate comparisons. 

COLLECTIONS 

Taking the payable discounts is not the only way to get 
ahead with credit. One tool to discover the effectiveness of 
collections is the average collection period. This program, 
Figure 2, needs a small base, your most recent 12 months 
credit sales. These figures may be entered month-by-month 
from the program prompts found starting in line 1030. 

The formula for the average collection period is: 

A = 0*B/T 

In this case A would be the average days of outstanding 
credit sales, 0 is the outstanding accounts receivable, B is the 
number of business days in the year, here set at 300; and T is 
the most recent 12 month credit sales. The result of this calcula¬ 
tion will be in days. If your terms are net 30 and your average 
collection period is 75 days, your work is cut out for you! 

Both programs are written in standard 8K BASIC support¬ 
ing more than one statement per line. If your BASIC does 
not allow this feature, simply enter each statement on a 
separate line. A 4K BASIC may be used by removing the 
string references for program re-calculation. 

The PRINT CHR$(26) and CHR$(2) statements are used 
to clear the CRT. They may be left out if not needed. 

A microcomputer allows key information about businesses 
from a number of sources. These two short programs may 
be helpful tools in management decisions.^ 
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OF CREDIT 


©010 
0020 
6630 
6630 
6653 
6660 
6670 
0166 
01J 6 
0126 
6126 
6146 
6136 
01 66 
6170 
0136 
0300 
6363 
6316 
0326 
6326 
0346 
0336 
6366 


FOR X9=1TG2:PRINTCHRt<26 >:NEXTX9 PRINTCHRt<2> 

LINE- 126:DIGIT S-2 
PRINT PRINT 

PRINT ThBC 13>"ACCOUNTS PAYABLE DISCOUNTS" 

PRINT TRBC26 >t "BV JIM SCHREIER" 

PR I NT : F0RX9—1T034 PR I NT " + ".; NEXTX9 PR I NT 
PRINT 

PRINT TRBC5X "THIS PROGRAM CACULATES THE EFFECTIVE COST OF" 
PRINT TRBC5X "NOT TAKING THE ALLOWABLE DISCOUNTS ON YOUR" 
PRINT TAB<3>; "ACCOUNTS PAYABLE. " 

PRINT 

PRINT TRBC5X "THE PRAT ICE OF RIDING THE PAYABLES MAY BE A" 
PRINT TABC 5 X "COST WHICH YOU MAY BE INTERESTED IN CONVERT- M 
PRINT TABC3>; "ING INTO PROFIT. " 

PRINT INPUT"HIT C RETURN 3 TO CONTINUE. ", XT 
FOR X9--1TQ2 : PR I NTCHRt C 26 > : NEXTX9 : PR INTCHRt < 2 > 

PRINT PRINTTRBC9X "EXAMPLE: 2X / 10 NET 26 TERMS" 

FOR X9-1T029:PRINTTABC9>:NEXTX9:PRINT:PRINT 
PRINT TABCOX "THIS EXAMPLE READS THAT A 2X DISCOUNT" 

PRINT TABCOX "MAY BE TAKEN IF PAID IN 10 DAYS. IF" 

PRINT TABCOX "THE DISCOUNT IS MISSED THEN THE NET" 

PRINT TAB<3>;"BECOMES DUE IN FULL IN 20 DAYS "PRINT 
PRINT :INPUT"PLEASE HIT C RETURN 3 TO CONTINUE. ", XT 
GOTO 1160 


6906 INPUT "ENTER X DISCOUNT ALLOWED ", P 
6916 INPUT "ENTER ALLOWED DISCOUNT DATE ", B 
6926 INPUT "ENTER NET DUE DATE ", D 
6936 LET L--D-B . F-106 : Y—260 
6960 LET C-CP/CF-P>*Y/L>*C160> 

6965 PRINT :PRINT 

6970 PRINT PRINTTABCOX "BY NOT DISCOUNTING YOU ARE PAYING" 

0986 PRINT TAB COX "THE RATE OF C"X PER YEAR. " 

6996 PRINT 

1666 PRINT :INPUT"DO YOU WISH TO RECACULATE, [ V 3 OR C N 3", Xt 
1016 IF XtO"N" THEN GOTO 1100 


1626 END 

1100 FOR X9-1T02:PRINTCHRtC26>:NEXTX9 PRINTCHRtC2 > 
1110 GOTO 960 


PROGRAM 1 


PROGRAM 2 


6100 GOSUB 6000:DIGITS-2:LINE-126:PRINT 
0116 PRINT T AB < ±8 > J "AVERAGE COLLECTION PERIOD" 

0113 PRINT TAB<23>; "BV JIM SCHREIER" PRINT 

6126 FOR X9-1T064 : F'R I NT " ; NEXTX9 : PR I NT 

0136 GOTO 1063 

6156 LET A-6 : 0-6 : T-6 : G=-6 

1606 GOSUB 3606 PRINT:PRINT 

1665 PRINT 

1616 PRINT TABC9>; "ENTER THE LAST TWELVE MONTHS' CREDIT" 

1611 PRINT TAB<16>;"SALES MONTH-BY-MONTH:" 

1636 DIGITS- 0 : PRINT FOR X9=-1T012 
1640 LET G-G+l 

1636 PRINT TAB<3>;"CREDIT SALES FOR MONTH tt";G;:INPUTT1 

1666 LET T-T+Tl 
1676 NEXT X9 

1680 PRINT TAB<3>; "YEAR-TO-DATE CREDIT SALES - t T 
1683 PRINT PRINT 

1696 INPUT "ENTER OUTSTANDING ACCOUNTS RECEIVABLE",0 
1695 PRI-NT 

2666 INPUT "PLEASE HIT C RETURN ] TO CONTINUE",Xi G0SUB3666 
2616 DIGITS- 2.B-360 
2020 LET A-0*B/T 
2640 PRINT PRINT 

2050 PRINT TAB<5); "AVERAGE DAYS' OUTSTANDING CREDIT IS ", A;"DAYS" 
2086 PRINT TAB<3>; "AVERAGE DAILY CREDIT SALE - % T/B 
3666 PRINT PRINT 

3616 INPUT "MORE DATA TO CACULATE, C V 3 OR C N 3", Y.t 
3026 IF >-:*<>"N" THEN 130 
3036 END 

3660 FOR X9-1T03 PR I NTCHRT- < 26 > NEXTX9 PR I NTCHRT < 2 > 

5016 RETURN 
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Complete systems for your applications 

Priced to fit your NEEDS and BUDGET! 


We can supply you with a DEC PDP-11 System, General Data Micro Nova or one of the 
leading S-100 systems. 



Cromemco Model 3703 Line 

Printer ISO cps, 132 cols, 18" platen, bi- 
directional printing, List $2995 

our price $2545 

Model 3779 Line Printer 60 cps, 12" 

12” platen, List $1495 OUR PRICE $1270 


Cromemco 3100 CRT Terminal 

80 char/line, 24 lines, 19,200 baud, upper 
and lower case, List 0UR pR|CE $1355 

3101 CRT Terminal 80 char/line, 

24 lines, upper/lowercase, List $1995 $1695 


Cromemco System Three 

List $5990 OUR price $4990 

Features 4mhz CPU, 32K of RAM, dual PerSci 
floppy disk drive (and provision for installing two 
more drives), RS232C Interface, printer interface. 
Assembled and tested, ready to use. 



ALPHA 5 

mainframe only 
with 32K RAM, 
SMB-11 Board. 
List $1939 

ONLY $1589 


Cromemco Disk Software - basic, 

Fortran, Assembler, Cobol, Word Processing 
System, Data Base Management - all com¬ 
plete with the new CDOS disk operating 
system, CP/M® COMPATIBLE, List $95 each. 

MiniMicroMart Price only $85 each 

Multiple User Basic, List $800 $680 


MiniMicroMart can supply a business applica¬ 
tions program written in Cromemco BASIC; 
and since the latest Cromemco CDOS (Disk 
Operating System) is now fully CP/m compatible, 
you can now run any program written in other 
languages as well, such as C-BASIC and any 
Microsoft or Xitan software. 


SYSTEM TWO, List $3990 ONLY $3390 

BONUS BUY — Add only $495 
and get a full 64K Cromemco System 
Two or System Three! 


ALPHA DISK 
SYSTEM 

with software 


List $2195 


ONLY $1795 


The system comes with the ALPHA DISK SYSTEM which 
provides two 5%" disk drives and more than 630K (160 full, 
single-spaced pages of text) of mass storage. Utilizing the new 
Dual Density Disk Controller, the system may be expanded 
up to a total of eight drives (two additional minis and four 
full size). This flexibility allows for future system expansion. 


Supplied with the system is the full Xitan Alpha 3 Plus Soft¬ 
ware package and their exclusive ELDOS Disk Operating 
System which is CP/M compatible. The software includes 
their Extended Disk BASIC, Macro-Assembler, Text Editor, 
linking and debugging software. At optional extra cost, a 
complete business applications program, written in Xitan 
BASIC. It is perhaps the most professional applications 
software available today for S-100 systems. 


COMPLETE SYSTEM with 
Terminal and Printer 


Our 


Price $4990 


Systems from MiniMicroMart are not limited to those shown. Custom 
versions of Cromemco, North Star, Vector Graphic, Xitan, and others are 
available. Call or write for a system to meet your specific requirements. 

All prices subject to change and offers subject to withdrawal without notice. 
Prices are f.o.b. shipping point. 


XITAN SYSTEM - 


Go with one of our Xitan Alpha modular business systems. 
We give you a Perkin-Elmer Bantam 550 Terminal, a Printerm 
879 120-char, cps pin-feed printer, a Xitan Alpha S-100 main¬ 
frame with Z-80 CPU, 32K of RAM, and an SMB-II System 
Monitor Board which provides the Zapple Monitor in firm¬ 
ware ROM and two serial RS232 ports. 


- IMMEDIATE DELIVERY ON CROMEMCO AND XITAN SYSTEMS - 
DEC systems available with maintenance from Digital Equipment Corp.; Micro Nova systems available with maintenance from Data General; 
selected S-100 systems available with extended warranty from MicroService. 


MiniMicroMart, Inc. 


- WRITE FOR FREE CATALOG - ““ ” 

1618 James Street, Syracuse NY 13203 (315) 422-4467 TWX 710-541 -0431 
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NAMELIST: A Formatted 
Name Listing Routine 


By Ron Tipton 

One of the most common business needs is that of print¬ 
ing lists of customers, clients or patients. Most often, names 
are entered and stored as fixed length fields. Commonly used 
lengths are 15 characters for the last name, a 10-character 
first name and a middle initial. These are usually long 
enough for a single name in each field, but the fields should 
be long enough for their intended use. 

Assume that 15, 10 and 1 fit the requirement. Whether 
sequential data files are read form tape or disk or even a 
keyed file, the name fields will appear one-after-the-other in 
particular memory locations, which will be named LNAME, 
FNAME and Ml. 

The goal then is to format and print the names, probably 
along with other data. For now, however, look only at the 
names. The most straightforward way to do this is to treat 
each field as containing a name using the whole field length. 
This approach produces the list shown in Figure 1. It’s cer- 
tainly functional, but it’s not very elegant. _ 


ADAMS 

, DORIS 

W 

BRUBAKER 

, HENRY 

A 

O CONNOR 

, WILLIAM 

M 

DAY 

, ED 


MICHAELS 

, ALICE 

T 

SMITH 

, BONNIE 

K 

WILLIAMS JR 

Figure 1. 

, WILL 

V 


A better solution is the list in Figure 2, and doing it this 
way is what this article is about. First, look at what must be 
done and how to tackle the problem. Then a program can be 
written to do the job. Finally, a discussion of reasons for 
writing this kind of program will be given. _ 

ADAMS, DORIS W 
BRUBAKER, HENRY A 
O CONNOR, WILLIAM M 
DAY, ED 

MICHAELS, ALICE T 
SMITH, BONNIE K 
WILLIAMS JR, WILL V 

Figure 2. 

A list is formatted one at a time in a memory area named 
LINE. LINE begins at the address ALINE. Begin by clearing 
LINE to blanks; then move the whole 15-character last name 
field to some beginning location, say ALINE+ 5. Now move 
to one position past the last name field, in this case ALINE + 
21, and start looking for non-blanks as the field is scanned 
backwards towards the left. When a non-blank is found, incre¬ 
ment the address by one to point to the blank right after the 
name, and put a comma there. Again increment the pointer 
by one to leave a blank after the comma. The above proce¬ 
dure is repeated to move the first name field into LINE and 
find its “right-hand’’ end by scanning back for non-blanks. 


This time, just increment the address pointer by two to leave 
a blank after the first name, and move the middle initial to the 
LINE position pointed to. This completes moving the name 
fields so the routine should return to the calling program. 

The program NLIST, written in 8080 assembly language 
and presented in Program 1, does the steps just outlined. 
LOPB fills the line with blanks, LOOP1 moves the last name 
and LOOP2 finds the actual end of the name field. LOOP3 
and LOOP4 move and find the end of the first name field. 
The routine is easily modified to handle name fields of dif¬ 
ferent lengths, a different starting point in LINE or a different 
LINE length. To change the last name length, change the 
constants in program lines 8 and 21; change the constants 
in lines 34 and 45 for a different length first name. The start¬ 
ing point in LINE is altered by changing the constant in line 
12. The print line length is set by the LINE “DS” statement 
and appears as a constant in program line 1. 

Now consider a few points on why the routine was written 
this way. First, why assembly language? There are two rea¬ 
sons worth considering for a business application. The code 
uses a minimum of memory and it runs fast. Moreover, even 
if the main-line program is in BASIC or another higher level 
language, many microprocessor BASICs can now call 
assembly subroutines. 

Why begin by filling LINE with blanks? To insure that a 
blank is found when the scan for non-blanks begins. After all, 
the name in the field the last time through was probably not 
the same length as it is this time. 

Why set up the counter in register B before starting the 
non-blank scan? If this seems over cautious, think what 
would happen if the name field were all blank. The program 
would keep scanning for a non-blank until it found one. The 
printed output line would not be at all what is expected. Busi¬ 
ness application programming must be very defensive; 
everything that can possibly go wrong will go wrong, so pro¬ 
grams should be insured against loss when faced with unex¬ 
pected input data. If the name fields are all blank, the printed 
line should be just a comma in position ALINE+ 5. 

It’s also possible to find the actual name field ends by scan¬ 
ning from the left and and looking for a blank. This works 
well most of the time but does not properly handle last 
names such as MC GEE, ST JOHN or DE WALD, when the 
names are entered with blanks as shown. It’s safer to use the 
original method as this lets the businessman enter names in 
whichever form he wants. 

In conclusion, it’s well to again mention computing speed. 
In fact, speed is the main different these days between micro¬ 
computers and minicomputers. The minis are mostly de¬ 
signed with standard or Schottky TTL logic which is almost 
always faster than any of the microprocessor chips. To be 
competitive in database applications, as much speed as pos¬ 
sible is needed. □ 

ABOUT THE AUTHOR 

Ron Tipton has a masters degree in electrical engineering 
and has been working with digital computers since the IBM 
610 was the latest thing In computing hardware - about 20 
years. He is presently a full-time consultant, mostly in the 
business application area. He is working with several makes 
of both micro and minicomputers. Program follows 
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DOUBLE DENSITY HORIZON I KIT 


double the storage at the same price! 


Today’s best buy. 180K bytes per disk. 
The chosen computer for two MicroWorld 
systems . . . Autoscribe — The Paperwork 
Manager- and Bookkeeper — The Office 
Accountant ™. Single density still runs on 
your new Horizon, or you can copy and 
convert all North Star software and pro-, 
grams to double density. 

• exclusive application software 

• add’l 16K memory (kit), $349 

• add’l disk drive (kit), $349 


NEW! 


Call for low assembled prices. Double 
density also available on North Star disk 
sub-system, $599 kit. 


MICROPOLIS 
DISK DRIVE 
TRS-80 


HEATH DATA 
SYSTEMS PRINTER 






SOROC IQ 120 VIDEO 
TERMINAL 




Tl 810 PRINTER 


MicroWorld Specials 

Integral Data Printer ... 

. $ 749 

Add for Tractors . 

. $ 150 

Mime Terminal . 

. $ 742 

Hazeltine 1410 Terminal 

. $ 765 

Hazeltine 1500 Terminal 

. $1097 

Teletype Model 43 

Printer . 

. $1019 

Dataproducts M-200 
Printer . 

. $2921 

Vector Graphics MZ ... 

. $3225 

Exidy 16K Sorcerer .... 

. $1035 

Data General 
microNOVA . 

$CALL 

Qume Sprint 5 RO 

Printer (55cps) . 

. $2895 

DEC LS 120 Printer .... 

$CALL 

Centronics 779 Printer 
(incl. tractors) . 

. $1095 

Micropolis 1042 Mod 

1 Drive . 

$CALL 

Tl 59 Calculator . 

. $ 219 

Novation CAT Modem 

. $ 199 

Tl 820 Terminal . 

. $2199 

North Star Horizon 
Software . 

$CALL 

Dataproducts B-300 
Printer . 

. $5346 

IPSI 1620 Diablo RO ... 

. $2705 

Hitachi 9" Monitor . 

. $ 184 

Cromemco System III .. 

. $5299 

Imsai VDP-80 . 

$CALL 


Bringing information technology to your doorstep 
1425 W. 12th PI. • Tempe, AZ 85281 • 602-894-1193 


CIRCLE INQUIRY NO. 85 


No extra charge for credit card orders 


Freight collect, F.O.B. Tempe 
No other handling charges 


Formerly Byte Shop Mail Order 


EWORLD 

LOWEST PRICES • FAST DELIVERY . DEPENDABLE SERVICE 


CALL TOLL-FREE 1-800-528-1418 
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PROGRAM LISTING 

NAMELIST 
ASCII blank 



BLANK: 

DB 

2 OH 


COMMA: 

DB 

' 


LINE: 

DS 

132 


ALINE: 

DW 

LINE 

0001 

NLIST: 

M VI 

B, 132 

0002 


LHLD 

ALINE 

0003 


M VI 

A. BLANK 

0004 

LOOPB: 

MOV 

M. A 

0005 


INX 

H 

0006 


DCR 

B 

0007 


JNZ 

LOOPB 

0008 


MVI 

B, 15 

0009 


LHLD 

LNAME 

0010 


XCHG 


0011 


LHLD 

ALINE+5 

0012 


XCHG 


0013 

LOOP1: 

MOV 

A, M 

0014 


XCHG 


0015 


MOV 

M, A 

0016 


INX 

H 

0017 


XCHG 


0018 


INX 

H 

0019 


DCR 

B 

0020 


JNZ 

LOOP1 

0021 


MVI 

B. 16 

0022 


XCHG 


0023 


MVI 

A, BLANK 

0024 

LOOP2: 

CMP 

M 

0025 


JNZ 

PUNCT 

0026 


DCX 

H 

0027 


DCR 

B 

0028 


JNZ 

LOOP2 

0029 

PUNCT: 

INX 

H 

0030 


MVI 

A, COMMA 

0031 


MOV 

M, A 

0032 


INX 

H 

0033 


INX 

H 

0034 


MVI 

B, 10 

0035 


XCHG 


0036 


LHLD 

FNAME 

0037 

LOOP3: 

MOV 

A, M 

0038 


XCHG 


0039 


MOV 

M, A 

0040 


INX 

H 

0041 


XCHG 


0042 


INX 

H 

0043 


DCR 

B 

0044 


JNZ 

LOOP3 

0045 


MVI 

B, 11 

0046 


XCHG 


0047 


MVI 

A, BLANK 

0048 

LOOP4: 

CMP 

M 

0049 


JNZ 

MI 

0050 


DCX 

H 

0051 


DCR 

B 

0052 


JNZ 

LOOP4 

0053 

MI: 

INX 

H 

0054 


INX 

H 

0055 


XCHG 


0056 


LHLD 

MI 

0057 


MOV 

A, M 

0058 


XCHG 


0059 


MOV 

M, A 

0060 


RET 



;start address of LINE 

•.length of LINE 

;point to start of LINE 

;load value of blank in accum 

;move blank to LINE 

;increment LINE pointer 

;decrement count 

;fil 1 LINE with blanks 

•.length of last name 
;start address of last name 

;point to last name start in LINE 

;move character to accum 

;move character to LINE 


jcontinue until last name is moved 

;length of name + 1 
;point to end of name + 1 in LINE 
;load value of blank in accum 
;compare LINE character with blank 
;jump if character is a non-blank 
decrement LINE pointer 
;decrement count 

•point to first blank after last name 
;load value of comma in accum 
;put comma in LINE after last name 
;point to blank between names 
;point to first name start in LINE 

;length of first name 

;start address of first name 
;move character to accum 

;move character to LINE 


;continue until first name is moved 

;length of first name + 1 

-.point to end of name + 1 in LINE 

;compare LINE character with blank 
;jump if character is a non-blank 
;decrement LINE pointer 
•.decrement count 

;point to blank after first name 
;point to middle initial position in LINE 

;address of middle initial 
;move initial to accum 

;move initial to LINE 
;return 
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PAYDAY Program Listings Vectored from Page 69 


0188 IF- MIDS(BS, 14, 1)^"T" THEN 370 

0190 G*-hTliS(D*, Xl*6+36, 6): FOR Y«6 TO 1 STEP-1 

0191 IF XlOO IF VAL< "0"+MIDS( BS, X 1*7+40, 7) )-~0 THEN 370 

0192 IF h/HS(GS, Y, 1 )-" "NEXT Y 

0193 GS=LEF IS < GS,Y) 

0194 IE XlOO IF VAL ( "0"+MIDS( BS, X 1*7+40, 7) )—0 THEN 370 
0195 ? HZ,RIGHTS(OS+GS,12); 

0700 FOR Y~b TO 1STEP~1:1F NID*( AS, Y, 1 >»" " NEXT Y 
0205 ? HZiRIGHTS(0S+LEF7 S(AS# Y), 15); " "j 
0710 ? HZ, MI DS (AS, 6, 32 ) # TAB (68) * : IF XlOO THEN 2/3 
0770 A —VAL ( "0"+MIDS ( CS» 8i 7 ) )+VAI ( "0"+hID*(CS, 13, 7) ) 

0230 A=A+VAL< "0"+LEFT* ( DS, 7) ) +VAL ( "0"+MIDS ( DS, 8, /> ) 

0240 A—A- (VAL ( " 0 *' +MI DS ( DS, 13, 7 ) ) +VAL ( "0"+MI DS (DS, 22, 7) ) ) 

0230 A=A- (VAL ( "0"+MID*(DS, 29, 7) )+VAL( "0"+MIDS (CS, 32, 7) ) ) 

0260 A=A- (VAL ( "0"+MIDS ( BS, 47, 7) )+VAL( "0"+MIDS(BS, 34, 7 > ) ) 

*0770 A-A- ( VAL ( "0"+MIDS ( BS, 61.7) ) +VAL ( "0"+MI DS ( BS, 68, 7> > ) 

02/3 GOTO 280 

0275 A=VAL ( " 0 " MI DS ( BS, X 1*7+40, 7) ) 

0280 IF A-O THEN 370 

0283 DIGITS- 2: ?#2, RIGHTS(OS+S I RS (A), 13): L-L+1 : C- _ C+1 : 11 — 7 1+A 
0290 IF L>58 D1GITS=^0: GOSUB 9000 
0370 NEXT X 

0380 FOR X—L TO 39:?HZ:NEX7 X 
0383 ? HZ. IAB(15), "TOTAL"; 

0390 ? HZ, TABC68); R1GHTS(0S+S7RS<71), 15) 

0400 C-0: DIG1TS-0: CL0SEH12:CHAIN MAIN 

9000 ? HZ,CHRSC12):P-P+l:?#Z,TAB(11 )i "PAGE ";P 

9010 ? HZ,TAB(L1-LEN(H*(0)>/2);HS(0) 

9020 ? #2 , "FEDERAL EMPLOYER # : M ;HS(3);TAB(L1-LEN(HS(1))72);HS(1>, 

9080 ? HZ,TAR(87); "CHECKS ARE DATED ”;HS<3) 

9040 ? HZ," STATE EMPLOYER # : ";HS(4);TAB(L1-LEN(HS(2))72),HS(2> 

9030 MS="REPORT OF ALL "+DS(X1)+"CHECKS PRINTED" 

9031 ? H Z , TAB(L1—LEN(MS)/2)» MS;TAB(87); 

9055 ? HZ, "Y I D PAYROl I H : "; 

9060 ? HZ,Y1 ?HZ, TAB(33); "FOR PERIOD ENDED ";HS(6): 7HZ 
9070 ? HZ,TABC6);"CHECK H";TAB(24>i"EMPLOYEE" 

9080 ? H 2,TAB(26); "H NAME";TAB(77); "AMOUNT" ^H Z 

9100 L=ll RETURN 


PROGRAM 18 

0010 REM STRT BAS WRITTEN 3/23/78 BY DAVE GARDNER 
0070 STRING- 128 LINE-80 ? CHRS(26) 

0023 OS^" 

0030 ? "PLEASE INSERT THE CHECKS INTO THE PRINTER " 

0040 "DO NOT ATTEMPT 10 PRINT ON THE FIRST CHECK" 

0030 ? "IN LINE WHEN THIS HAS BEEN COMPLETED ENTER" 

0060 ? "THE CHECK NUMBER OF THE WASTED CHECK "; 

0070 OPEN H10, MASTER FOR UPDATE 
0080 FIELD H10, AS-92, BS^104, CS^39 

OlOO INPUT A:GET H10: DS-MIDS(CS,52) CS-LEFTS(CS,4 2) 

0105 XS-RIGHTS(CS,8) 

Oi10 CS=CSfLEFTS(STRS(A+1)+0S,9)+DS 
0113 REWRITE H10:CLOSE HiO 
0120 OPEN H11 , MAST FI FOR UPDATE 
0130 FIELD Hil, AS*87, BS-96,CS-72 
0140 GET HI 1: DS-MIDS(AS, 51) 

0130 A—VAL("O"+MIDS(AS, 43,6)) AS—LEFTS(AS, 44)+LEFTS(STRS(A+1)+0S, 6) 
0160 DS-MUTS(CS, 26) CS-"0" 

0) 70 INPUT "CURRENT PERIOD ENDING DATE ", ES 
0180 CS-CS+LEFTS(ES►□*,9):ES-XS:CS-CSIES+" " 

0190 FOR X^O TO 2 

0200 ? "SHOULD I PAY ";MlDS(DS, X*13+8, 13); " EMPLOYEES "; 

0210 INPUT ES: IF ASC(ES)--89 CS-CS+" 1": GOTO 230 
0220 CS=CS+"0" 

0230 NEXT X 


PROGRAM 19B 

0395 AS--AS+LEFTS (ST RS ( C )+0S, 7 )+DS REWRITE Hll 
0400 CLOSE HI 1,H12,H13: CHAIN PWR1 

6000 W1 ♦-ABS(W) — INT(ABS(W)) : ZS<4)-"0000000000"+STRS(1NT<ABS(W) 
6010 ZS(4)—RIGHTS(ZS(4), 9) ZS^"" 

6020 FOR W2-2 TO 0 STEP -1 

6030 Z S ( 5) ”-M l DS ( Z S ( 4 ) , W2*3+1,3): IF VAL(ZS(3))^0 THEN 6140 
6035 IF W2“l ZS=" THOUSAND"+ZS 
6037 IF W2“O 2S=" M1LLI0N"+2S 

6040 W3= VAI ( MIDS ( ZS (5)» 2 ) ) : IF' W3>19 THF1N 6080 

6050 IF 143-0 THEN 6120 
6060 IF W3<11 THEN 6090 

60/0 K8-VAI. (MIDS(2S(2), (W3-11 )*10+1, 1 ) ) 

60/1 ZS= ; " "+MIDS( ZS(2), (W3-11 )*10+2, K8)+ZS 

60/5 GOTO 6120 

6080 W3-VAL(MIDS(ZS(5),3,1)):IF W3^0 THEN 6100 

6090 K8—VAI <"0"+MlDS(ZS(1),W3*10-9,1)) 

6091 ZS-=" "+MIDS ( ZS ( 1 ), (U3— 1 ) *10+2, K8 ) +ZS 
6095 IF VAI (MIDS(ZS(5), 2))<20 THEN 6120 

6100 W3”VAL<MIDS(ZS(5), 2, 1)): IF W3<2 THEN 6120 
6)10 KS-V Al (MlDS(ZS(3),(U3-1)*10+1,1)) 

6111 ZS-" "+MIDS(ZS(3), (W3—1)*10+2,K8)+ZS 
6120 W3-VAI (LEFTS(ZS(5), 1)): IF W3«0 THEN 6140 
6130 K8=VAI (MIDSC2S(1),W3+10-9. 1)) 

6135 ZS^" "+MIDS(ZS(1),W3*10—8,K8)+" HUNDRED"+ZS 
6140 NEXT W2 

6145 K8-1NTCWl*100):ZS-ZS+" AND " 

6147 IF K8C10 THEN ZS-ZS+"0 M 

6)30 ZS=ZS+STRS(K8)+"/100 DOLLARS" 

6153 IF INT(ABS(W))-0 ZS^" ZERO"+ZS 
6135 IF W<0 ZS-^" NEGATIVE" + ZS 
6137 Z S^MIDS(Z S, 2):RETURN 
6160 DIM ZS(3) 

6170 7S <1)-"30NE 3TW0 3THREE 4FOUR 4FIVL 

6180 Z S(1)«Z S(1)+"5SEVEN 5EIGHT 4N1NE 37 EN 

6)90 ZS(2)-"6ELEVLN 6TWELVE 8THIRTEEN 8F0URTEEN /FIFTEEN 

6200 ZS(2)-7S(2) + "9SFVENT EEN8E1GHTEEN 8NINETEEN 

6210 Z S (3) " 6TWENTY 6THIRTY 5F0RTY 5FIFTY 

6270 ZS ( 3)"- ZS (3) + " 7SEVENT Y 6EIGFITY 6N1NETY 

6230 RETURN 

9000 REM 

9001 IF A<-0 MS-MS+"999999":RETURN 
9005 IF D(A2)-1 MS-MS+"999999": RETURN 

9010 MS-NS+LEFTS(ST RS(Cl)+" ", 6) ■ Cl-Cl + 1:C-C+l 

9030 W-A GOSUB 6000 

9040 FOR X5=0 TO 5: ''HZ: NEXT X5 

9030 H Z. T AB (65); GS: 7H Z : 7H Z 

9060 DIGITS^ 2:?HZ,TAB(9); ZS;TAB(71); : ZS-R1GHTS(OS+STRS(A). 15) 

9070 FOR X5=l TO 15: IF MIDS( ZS, X5, 1 )•=" " NEXT X5 

9080 HZ, MI DS ( ZS, X5-1) ^HZ: ^HZ ?«Z 

9090 IF A2O0 ?HZ: >HZ ?HZ: GOTO 9130 

9100 FOR X5-0 TO 2 

9110 ? H7.TABC 13)iMIDS(AS, X5*30+INT(X5/2+. 5)*2+6»30+C2-INT 

9170 NF XT X3 

9130 ? H 7,TAB(13);DS(A2) 

9140 FOR X3-1 TO 10: 7HZ NEXT X3 IF A200 THEN 9300 
9300 RETURN 


PROGRAM 20 

00)0 REM HSTY BAS WRITTEN 3/25/78 BY DAVE GARDNF1R 
< >020 STRING- 128 LINF-0 >CHRS(26) DIMHS(4), TS(2) , ES(2).T(6 ) 
0075 Z—4 


381 X 

7SIXTEEN 
5SIX TY 


D 1 0 ; i 
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0240 C*^C*+"000"+D* RFWR1TE #11 CLOSE #11 

0250 CHAIN P1NP 


PROGRAM 19A 

0010 REM Pf:HK HAS WRITTEN 3/23/78 BY DAVE GARDNER 

0015 REM ADAPTED BY RANDY JACKSON—PERSONAL COMPUTER PLACE 

0070 STRING- 128:LINE-0:? CHR*(26) 

0022 0 *-" " 

0075 Q*="JANUARY FEBRUARY MARCH APRIL MAY JUNE 

007/ Q*-Q*4-" JULY AUGUST SEPT EMBEROCTOBER NOVEMBER DECEMBER 11 

0028 ? TAB( 10)# "PAYCHECK PRINTING PROGRAM":?:?:?:?:?:? 

0030 OPEN #10, MASTER FOR INPUT 

0040 FIELD #10, A*-92. B*«104. C*-59 

0050 GET #10 CLOSE #10: DIM Hit (6), D* < 4 ), D(4), B(7) 

0052 ? "U 0 R K I N G • '":?:? 

0055 Ht<0)"MlD*<A*. 7, 46) : H*< 1 )-MlD*< A*, 03, 40) H* ( 2 )•--LEFT$ (t*, 40) 

0060 H*( 3) --MI U* ( A*, 41, 32) : H*<4>«MID*<B*, 73) 

0065 C1=VAI ( "0"+MID*<C*, 43, 9) ): X*-RIGHT*<C*, S) 

0070 FOR X-0T04: FORY-LEN(H*( X ) )T01STEP-1 
0075 IF MJD*(H*<X>.Y,1>«” " NEXT Y 
0080 H*< X)-LEFT* < H* < X >,Y >:NEXT X 
0005 D* ( QS, 9* VAL < X* ) -8, 9 ) 

0086 FOR Y-9 TO 3: IF MlD*<Q*,Y, 1)~" " NEXT Y 

0087 Q*-LEET*(Q*, Y) + " "+STR* (VAI. < MID* ( X*, 4, 2 ) ) ) + " , 19"+MID* ( X*, 7) 

0090 OPEN #11, MAS I E1 FOR INPUT 

0100 FIELD #11, A*^119, B*-96, C*^40 

01 10 GET #11: CLOSE# 1 1 H*<5)~MID*(B*, 75, 8) H*<6)-MID* ( B*. 66, 8) 

0111 ? CHR*(76) ? "STILL WORKING' ! ":?:?:?:? 

0112 D*( 1 >”MID* (AH», 88) D* (2) - LEE T *(B*, 32) : D1» (3) - S MID4» (B*, 33, 32) 

0113 C-VAI ( "0"+M1D* (At, 81,7)): FOR X--0T03: E'OR Y-LEN< D* < X) ) T01 STEP-1 
0114 IF MID*(D*<X>, Y, 1 )««" " NEXT Y 
0115 D*(X)~LEFT*<D*<X), Y): NEXT X 

0120 N1=VAI_( "0"+MID*< A*, 51,3)): Y1--VAL( "0"+MID*(A*, 45, 6) ) 

0123 D* ( O ) -" " : D* ( 4 ) -"SPEC 1AL DEDUCT ION" 

0125 LET D(0)- r 0: F0RX-1T04: D< X )- : l : NEXT X 

0130 OPEN #12, PERFIL FOR INPUT 

0140 FIELD #12, A*-* 103, B*^103, C*-49 

0150 OPEN #13, EMPHST FOR UPDATE 

0160 FIELD #13, D*^100. E*^-104, F*-51 

0170 GOSUB 6160 

0175 7~4 

0180 FOR X^l TO N1: GET#12: IE MID*(B*, 23, 8><>X*THFN 370 
0185 M*-"" 

0190 GET #13: A2--0 

0220 A~VAl.( "0"+M 1D*(C*, 8, 7) )+VAL ( "0"+MID*(C*. 15, 7) ) 

0230 A-A+VAL ( "0"+LEE"T * ( D*, 7) ) +VAL ( "0" +MI D* ( D*, 8, 7) ) 

0740 B < O ) —A: B ( 2) - VAI. ( "0"+MID*(D*, 15, 7) ) : B(3)--VAL( "0"+MlD*<D*, 22, 7 ) ) 
0750 b ( 1 ) --VAI. ( " O " ■♦ M1D* ( D*, 29, 7) ): B(O)-B<0)-VAL( "0"+MlD*(C*, 32, 7) ) 
0760 B ( 4 ) =VAL < "0"+MID* ( B*, 47, 7) ): B(5)--VAL< "0"-»MID*(B*, 54, 7) ) 

0770 B ( 6 ) - VAL ( " 0 " +M ID* ( B*, 61,7) ) : B(7)=VAI ( "0"+hlD*(B*, 68, 7) ) 

0775 A=B(0) : F0RU1»1T07: A^A-B(W1):NEXTW1 

0280 GOSUH 9000 
0285 A2-0 

0290 A2--A2+1 

0295 IF VAL<"0 M +MID*<B*, A2*7+40.7)>-0 THEN 360 
0300 A=VAI <"0"+MID*(B*, A2*7+40,7)> 

0350 GOSUH 9000 

0355 GOTO 365 

0360 M*-M*+"0 

0365 IF A2<>4 THF.N 290 

0366 G*--hTD*< D*» 66) DELEFT*<D*. 35>+M*-»G* 

0367 REWRITE #13 
0370 NEXT X 

0380 OPEN #11, MASTE1 FOR UPDATE 

0385 FIELD #11, A*-100. B*^100,C»-55 

0390 GET #11 D*-N1D*(A*,88) A*-LLFT*< A*»80) 


0030 I *(O)-"h i0006607200/307900800860087093009410010010071008014" 
0040 F*< 1)-"QTD1029036103704410450511052058105906510660731074081" 

0050 T * < 2 ) -“ " YTD1096104200100920100162017023202403020310372038044 " 
0060 O*-" " 

O0/U ? "DO YOU WISH TO DISPLAY:":?:? 

OU80 FOR X- 0T02 ?X+1,TAR<5); "REPORT OF ALL " i LEFT*(T*<X),3)i " FIGURES 
0085 NEXT X 

0090 ? INPUT"SEI ECTION (0 TO EXIT) ",A 
0100 IE A-0 THEN 

0110 IF A>0 IF A<4 IF A-INT(A) THEN 130 

0120 ? CHK*(7 )i "ILLEGAL SELECT 1 ON 1 ' '" GOTO 70 

0)30 A-A-l OPEN #10. MASTER FOR INPUT 

0140 FIELD #10, A*-92» BS-104,C*-59 

0150 GET #10 CLOSE #10 L1- 66 

0155 X *--RIGHT * (C*,8) 

0160 H*<0)=MID*(A*, 7,46) H*<1 )-MlD* ( A*, 53) 

0165 H$ < 2 )--LEFT* ( B*« 40) 

0170 EOR X-“0 TO 2 FOR Y^LEN(H*(X)) TO 1 STEP-1 
0175 IF MJD*(H*(X>,Y.1>=" " NEXT Y 
0180 H*<X)-LEFT*(H*. Y) : NF.XT X 

0)85 H*(O)“RIGHT*(0*+H*(0), L1-LEN<H*<0))/2) D*^H*(1) 

0190 HS <1) — " FED EMP # "+M1D*(B*, 41,32) 

0195 H*< l >-LEFT*<H*< 1 )+0*, L1 -LEN( D* ) /2> +D* D*-H*<2> 

0700 H*(2)-" STATE EMP # "+M1D*<B*. 73) 

0705 H$(2)“LEFT*(H*(2)+0*, L1-LEN(D*)/2)+D* 

0710 H* < 3)-"REPORT OE ALL "+LEFT*(T*<A),3)♦" EIGURES" 

0270 H* ( 3) --RI GHT * ( 0-H H* ( 3), L1-LEN(H*(3) )/2) 

0725 H*< 4) --" AS OF " + X* 

0730 OPEN #11. MAST El FOR INPUT 

0240 FIELD #11, A*-87.B*-96,C*-72 

0750 GET #11 CLOSE #11 Nl-VAL<"0"+MID*(A*,51,3)) 

0760 OPEN #12, PEREIL FOR INPUT 
0270 FIELD #12, AS=103» B*-103,C*-49 
0780 OPEN #13, EMPHST FOR INPUT 
0290 ElELD #)3, D*-100,E*-104,F*-51 

0795 INPUT "WHEN THE: PRINTER IS READY PRESS "RETURN" ", A* 

0300 GOSUB 9000 
0310 FOR X^l TO Nl 

0320 GET #12 : GET #13: E* ( 0) --D*: E* < 1 ) -*E* : E* < 2 ) -E * 

0330 FOR Y-5 TO 1 STEP-1:IF MID*(A*,Y,1" NEXT Y 

0335 B* : =l EFT* (A*, Y) : ?#Z, TAB ( 7-LEN ( B* ) ); B*; TAB ( 11 ) i MID* (A*. 6, 32); 

0340 ? #Z,TAB(46); 

0350 FOR Xl^O TO 6 

0360 X2~VAL (Ml D* ( T * < A), Xl<r7+4, 1 ) ) : X 3—VAL (MID* ( T * ( A ), Xl*7*»-5, 3) ) 

03/0 X4—VAL(MID* < T*(A), X1^7+8, 3)) 

0380 A1^-VAL( "0"+MlD*(L*<X2). X3, X4-X3-M ) > : GOSUB 8000 
0385 T(X1)-T(XI)+A1 
0390 NEXT XI 

0400 ? #Z L^L+1:IE L>58 GOSUB 9000 
0410 NEXT X 

0420 FOR X-L TO 59: ?#Z: NEXT X 
0430 ? #Z, " TOTALS "i 

0440 DIGITS^ 2:FOR X-0T06: ?#Z, RIGHT*(0*+ST R* < T < X)), 15)+""; " NEXT X 

C»445 DIGITS- 0 ?#Z 

0450 CLOSE #12,#13 CHAIN MAIN 

8000 DIGITS- 2 

8010 ? #/., RIGHT*(0*+STR*( A1 ), 10); " DIGITS^O 

8015 DIGIT'S- 0 
8020 RETURN 

9000 I '=E*+1 °# L . CHR* < 12 ): ?#Z, " PAGE " ; P 
9010 FOR R) 0 TO 2 ^#Z,H*<R1):NEXT R1 
V012 FOR RI--3 TO 4 '#Z. H* (R1 ) i NEXT R1 
9015 ? «Z 

9020 ? #Z, " EMPLOYEE"; TAB(47); "REGULAR OVERT IME FIT"; 

9030 ? #Z, " SIT F1CA BONUS EXPENSE" 

9040 ? #Z, " # NAME";TAB(50); "PAY PAY";TAB(121 ); "RE I MB 

9050 ? #Z L-12:RETURN 
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Last month, number systems prevalent in digital computer 
operations were discussed, and logic elements introduced. 
This month we will conclude Unit Three with the continua¬ 
tion of logic elements and the basics of Boolean Algebra. 

ELECTRONIC SYSTEM 

In electronic digital systems an AND gate behaves in a 
manner similar to the AND relay circuit, although it is not 
identical in configuration. That is, the AND gate has two or 
more input terminals but produces an output only when an 
input is present at all of its input terminals. For this reason, 
the AND circuit is sometimes referred to as a “coincidence” 
circuit. In other words, input signals must be present at all in¬ 
put terminals at the same time. 

Two other name;s for the AND gate are AND circuit and 
logic AND circuit. In Figure 48 we show the symbols com¬ 
monly employed to identify the AND circuit. (Some manu¬ 
facturers use their own symbols to identify the logic circuits 
in their equipment.) 



As can be seen in Figure 49, an output can be obtained 
from this circuit only during the instant when all inputs are 
active. AND circuits can be designed to respond to d-c inputs 
or to pulse inputs, as shown in Figure 49. Furthermore, the 
circuit can be designed to respond to negative input pulses 
rather than the positive ones shown in Figure 49. 


In the symbols presented in Figure 48, no return circuit is 
shown since it is accepted that both input and output circuits 
use ground as the common return paths. 



Relay System 

Returning to the example of an elevator, let us forget that 
there is a safety button at the door and assume that there are 
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two call buttons, A and C. The elevator must operate when¬ 
ever one of these two buttons is depressed. 

To obtain this action, we connect the contacts of the cor¬ 
responding relays in parallel as shown in Figure 50. So the 
motor of the elevator is energized when button A or button C 
is depressed, or when both buttons are depressed simul¬ 
taneously. This coincides with the definition of A + C. So 
the condition OR is equivalent to placing the contacts, or the 



In electronic digital systems an OR gate, although not 
identical in configuration, behaves in a similar manner to the 
relay circuit just explained. That is, the OR gate has two or 
more input terminals and produces an output when input is 
applied to at least one of the input terminals, as shown in 
Figure 52. 

In Figure 51 we present the symbols commonly employed 
to identify the OR gate. 



Figure 51. Symbols representing “OR” gate. 

As with the AND gate, the OR gate can be designed to re¬ 
spond to either d-c or pulse type inputs, and can be designed 
to respond to negative rather than the positive inputs shown 
in Figure 52. Other names given to the OR gate are OR cir¬ 
cuit and diffused mixer. 
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output Figure 52. “OR” gate signals. 


“NOT” CONCEPT (INVERTER) 

Relay System 

Continuing with the example of the elevator, suppose that 
we want to provide the system with an emergency button D, 
which can stop the elevator at will. 

For this type of operation, we must provide the circuit with 
a relay contact that operates in an inverse manner to the con¬ 
tacts of the call and safety relays. That is, the contact must be 
normally closed (on) when the coil of the relay is not ener¬ 
gized and must open the circuit when button D is depressed, 
as shown in Figure 53. 



COMBINATION OF OR, AND, AND NOT CIRCUITS 
Relay System 


We are now ready to make a complete command system. 
That is, we want an elevator (E) that can be started with either 
of two buttons, A or C, but only if the door safety button (B) 
is closed (on) and the emergency button (D) is off. Analyzing 
the requirements, we find that the contacts actuated by the 
relays of buttons A and C must be connected in parallel. We 
also have an AND relation between the contacts of relays B 
and D and the parallel (A + C) relation. The requirements of 
the circuit will be accomplished by connecting in series con¬ 
tacts B, D and the parallel (A + C), as shown in Figure 54. 



In Figure 54 we show only the contacts and not the relays, 
since the contacts are actuated when the relays are excited 
and return to their normal position when the relay is not ex¬ 
cited. Due to this direct relation between a relay and the con¬ 
tact (or contacts) that it controls, the contact (or contacts) of 
this relay can be identified by the same letter used to 
designate the function of the relay. 

For example, the three contacts of a relay employed to 
start a three-phase motor close when the relay is energized 
by depressing the “Start” button. Therefore, if the starting 
relay is identified by the letter “S”, then all the contacts ac¬ 
tuated by this relay can be identified by the letter “S”. When 
relay S closes, all the S contacts close. The relay symbol can 
therefore be removed from the schematic, but then it must 
be understood that the letters assigned to the contacts repre¬ 
sent the signal applied to the relay. 

Electronic System 

Figure 55 shows the equivalent computer logic circuit of 
Figure 54. Note in Figure 55 that in order to obtain an out¬ 
put E of this logic circuit the AND gate must receive a signal 
from the OR gate (signals applied either to A or C) and from 
branch B and from branch D; but in order to receive a signal 
from branch D, no signal must be present at the input of the 
inverter circuit. 
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If the circuit is operating and a signal is applied to the input 
of the inverter, no signal will be obtained from its output and 
the AND circuit will not have an output signal. 



Figure 55. Electronic command system. 
EXCLUSIVE “OR” CIRCUIT 
Relay System 

Continuing with our example of the elevator, suppose that we 
want to complicate its control circuit further by including an ex¬ 
clusive OR circuit, instead of the inclusive OR circuit which 
was provided previously. That is, we want the elevator to oper¬ 
ate when only one of the call buttons A or C is depressed. 

The parallel circuit of Figure 50 permits the elevator to 
operate when any of these buttons is depressed, but also 
when both buttons are depressed at the same time. That is 
what we want to avoid. 

What we need then is a circuit that, without altering the opera¬ 
tion of the parallel buttons A and C, stops the current flow to 
the motor when both buttons are depressed simultaneously. 

Analysis of Reasoning 

We can follow this reasoning: 

The condition of an exclusive OR between A and C is 
satisfied when one of the two contacts acquires the condition 
of yes (on) and simultaneously the other contact acquires the 
condition of no (off). In other words, the condition is satisfied 
when A or C is yes and simultaneously A or C is no. 

The fi recondition is expressed at A + C; the second con¬ 
dition as A + C. The first condition is represented by front 
contacts A and C in parallel; the second condition as back 
contacts^ and C also in parallel. Since both conditions must 
be satisfied simultaneously (AND concept), both parallel cir¬ 
cuits must be connected in series, as shown in A of Figure 56. 



Expressing this circuit arrangement symbolically, (A + C) 
(A + C) = E. This combination of four contacts gives us an 
exclusive OR circuit between A and C. Even though four 
contacts are used, there are only two variables. We can there¬ 
fore use two relays corresponding to the two variables; in¬ 
stalling on each relay one front and one back contact that 
corresponds to the variable and its negation (complement). 

Alternate Circuit 

We could have followed this other reasoning: The exclu¬ 
sive OR is satisfied (elevator operates) when A is NOT and C 
is YES or when A is YES and C is NOT. Symbolically this 


would be expressed as AC + AC = E, and is read: If C but 
not A is on, OR is A but not C is on, then E (condition E) is 
obtained. (The = sign is read “then”.) 

To obtain this form of a circuit, we can connect a back 
contact A in series with the front contact C, and this circuit in 
parallel with a series circuit formed by a front contact A in 
series with a back contact C, as shown in B of Figure 56. 

This circuit so obtained is equivalent to that shown at A of 
Figure 56. 

Electronic System 

In Figure 57 we present the electronic logic diagram 
equivalent to the exclusive OR circuit of Figure 56. In this 
electronic Logic diagram the AND, OR, and inverter circuits 
are connected in various combinations in order to obtain the 
same results of the circuits illustrated in Figure 56. 

Note at A of Figure 57 that is an input is applied to either A 
or C (but not to both) an output will appear at terminal E. If 
inputs are applied to both A and C, no output will appear at 
E, because (1) the AND circuit which feeds into the inverter 
will produce an output; (2) the inverter will produce no out¬ 
put because it receives an input; (3) since the inverter pro¬ 
duces no output; the AND circuit that follows produces none. 



As with the circuits of Figure 56, the circuit A of Figure 5] 
is described mathematically by the equation (A + C) (A + U) 
= E. The same reasoning can be applied to the circuit 
shown at B of Figure 57. However, in this latter case, the 
equation is (AC + AC) = E. 

Returning to Figure 56, if one of the two circuits were in¬ 
cluded in a sealed box, or black box, as it is usually called, we 
could not tell from the outside which of the two circuits is 
employed. Neither of these two circuits has any advantage 
over the other, since both require four contacts and two 
relays to accomplish their purpose. 

But there are instances when great savings in components are 
achieved by substituting one circuit for its equivalent. For exam¬ 
ple, circuit A of Figure 57 has one inverter less than circuit B. 

Figure 58 shows the symbols used to represent the “Ex¬ 
clusive OR” circuits. 
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If we call yes to the action of a normally open or “front 
contact” which when depressed permits a circuit to operate, 
then we have to call not or inverter to a normally closed or 
“back contact” which when energized opens the circuit. So 
the logic condition of operation of this switch is NOT D or D 
(the line on top of the letter means not). 

Electronic System 

In electronic digital systems a NOT circuit operates in a 
similar manner to that of the normally closed or back relay 
contact. That is, the NOT circuit, also called an inverter cir¬ 
cuit, produces an output when an input is not applied. 

If an input is applied, the circuit produces no output. The cir¬ 
cuit therefore represents the function of negation or inversion. 



identify the noninverting amplifier or buffer and the NOT or 
INVERTER circuit. As with the AND and OR gate, the NOT 
circuit can be designed to respond to either d-c or pulse-type 
inputs, and can be designed to respond to negative rather 
than to the positive input shown in Figure 60. 



Figure 61 shows the logic symbols used to denote “NOR” 
and “NAND” circuits. Also shown at the output of each is 
the Boolean expression for that output. We can readily see 
that the following outputs of single logic elements are easily 
identifiable, such as A + B, AB, AB + AB which represent the 
the OR, AND and Exclusive OR logic functions, respectively. 
A tool that enables us to readily define multi element circuits 
is that of Boolean Algebra. 

BOOLEAN ALGEBRA 

When the first investigations on switching circuits were 
made, a tool was required that would give the same results in 


solving switching problems that regular algebra gives in solv¬ 
ing other engineering problems. 

This special “switching algebra” was developed rapidly for 
two reasons. The first reason was that the “tool” (Boolean 
algebra) had already been in existence for more than a cen¬ 
tury; the second reason was “technical ingenuity,” or, in this 
case, learning how to apply old mathematical principles to a 
new field. 

PROPOSITIONAL LOGIC 

When we make a statement about something or some¬ 
body, we make this statement in the form of a proposition. 
What is important is if the proposition is true or false. 

If the proposition is true, it is assigned a value of “one.” If 
the proposition is false, it is assigned a value of “zero.” 
Thus, all propositional calculations involve two values: 1 or 
0, true or false, yes or no. 

There are statements which are complex and to which it is 
more difficult to assign proper values. 

ANALOGY BETWEEN COMPLEX PROPOSITIONS 
AND SWITCHING CIRCUITS 

An American scientist, Claude Shannon, first noticed the 
analogy between complex propositions and the operation of 
switching circuits. So close is this analogy that the algebra cre¬ 
ated by George Boole (Boolean algebra) to solve these proposi¬ 
tions can be applied to these circuits without modifications. 

The relationship between the value of a complex proposi¬ 
tion as a whole, and the value of its individual components, is 
identical to the relationship that exists between an electric cir¬ 
cuit containing a great number of contacts, and the condition 
of the individual contacts. It is only necessary to change the 
notion of “true” for a proposition to a “closed circuit” and 
the notion of “false” to an “open circuit”, and to use the 
“1” and “0” of Boolean algebra to represent a “closed” 
and an “open” circuit respectively. 

The same thing happens with logic relations; the “br” 
which is expressed in Boolean algebra by the “ + ” sign 
represents a parallel connection, and the “and” which ex¬ 
presses multiplication in Boolean algebra represents a series 
connection. 

OPERATIONAL RULES OF BOOLEAN ALGEBRA 

The operational rules and basic theorems of Boolean alge¬ 
bra can be studied by following one of two methods. One of 
these would be the “logic method” followed by Boole. The 
other method, which we will use since it is easier to under¬ 
stand, is based on an electrical analogy. 

However, an understanding of both methods, circuitral 
and logical, helps to develop the mental ability to visualize a 
switching problem from two points of view, as a logic struc¬ 
ture and as a circuit. Once this ability has been developed, 
the solving of logic functions is easily achieved. For this 
reason, when possible, logic analogies of switching circuits 
will also be presented in our discussion. 

BASIC RULES 

As was previously mentioned, Boolean algebra makes use 
of only two numbers, one and zero; and two logic relations, 
“or” and “and.” In order to understand the algebraic mani¬ 
pulation of these numbers and relations, we must study first 
their basic arithmetic operational rules. 

“And” Relation 

We will start with the relation “and” or a series connection. 

Being two numbers (1 and 0), there are four possibilities in 
this logic multiplication. The first possibility is 0*0. (The dot 
between the two zeros denotes multiplication.) This opera¬ 
tion is equivalent to connecting two open circuits in series. 
Therefore, there will be no continuity between the input and 
output terminals, and the result is an open circuit, so: 
0*0 = 0 (See Figure 62). 
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0*0 o 

_ Figure 62. 0 * 0 = 0 _ 

The second and third possibilities are identical: 0*1 and 
1 *0. Both expressions correspond to a closed circuit con¬ 
nected in series with an open circuit. The result is an open 
circuit, so: CM = 1 *0 = 0 (See Figure 63). 



• O O 


Figure 63. 0 • 1 = 0 AND 1*0 = 0 

The last possibility is 1 • 1, which corresponds to two closed 
circuits connected in series. The result is a closed circuit be¬ 
tween input and output. Therefore: 1 *1 = 1 (See Figure 64). 


i*i i 

_ Figure 64. 1 • 1 = 1 _ 

“Or” Relation 

Here we also have four possibilities. The first, 0 + 0, cor¬ 
responds to two open circuits in parallel; the result is an open 
circuit between input and output; therefore: 0 + 0 = 0 (See 
: igure 65). 


O 



Figure 65. 0 + 0 = 0 

The second and third possibilities, 0 + 1 and 1 +0, can be 
represented by a closed circuit in parallel with an open cir¬ 
cuit. Since the input and output terminals are connected to 
both the open and the closed branches, there will be continuity 
and the result is a closed circuit, so: 0 + 1 =1 +0 = 1 (See 
Figure 66). 


O 



o 


_ Figure 66. 0 + 1 = 1 AND 1+0 = 1 _ 

The arithmetical operations studied above are no different 
from those studied in elementary arithmetic. However, the 
difference is found when two closed circuits are connected in 
parallel, that is, in the fourth possibility, 1 + 1. Since a circuit 
can either be open or closed, but never more than closed, 
the result of this operation will also be “one’, that is: 
1+1=1 (See Figure 67). 


Figure 67. 1 + 1 = 1 

This expression may seem strange, but we must remem¬ 
ber that “ + ” does not mean addition in logic relations, but 
rather “or.” 


The basic Boolean arithmetic rules can be presented in the 


form of a table as follows:__ 

Logic Addition 

Logic Multiplication 

0+0 = 0 

0*0=0 

0+1 = 1 

0*1 = 0 

1 + 0=1 

o 

ll 

o 

• 

▼— 

1 + 1 = 1 Table 12. 1*1 = 1 


OPERATION WITH VARIABLES 

We have seen how arithmetical operations are performed 
by employing “1 ” and “0” to indicate the condition of fixed 
circuits, using “1” to represent a closed circuit and “0“ to 
represent an open circuit. Now, let’s see what happens if we 
substitute contacts for the fixed circuits. Contacts, as you 
know, can be actuated one by one, or in groups, by relays: 
they close (turn on) when the relay closes and open (turn off) 
when the relay opens, or vice versa. 

Basic Theorems in Boolean Algebra 

The fundamental relations in Boolean algebra as applied 
to switching circuits (variables), are: An expression of the 
type A*B corresponds to a contact of relay A connected in 
series with a contact of relay B. An expresssion of the type A 
+ B corresponds to a contact of relay A in parallel with a 
contact of relay B. 

It is easy to understand, then, the veracity of the following 
commutative (transformation) laws: 

Theorem 1: 

A*B = B*A (See Figure 68) 

Theorem 2: 

A + B = B+A (See Figure 69) 

Also, it is easy to understand the veracity of the following 
associative laws. 

Theorem 3: 

A (B*C) = (A*B)C = (A*C)B (See Figure 70) 

Theorem 4: 

A + (B + C) = (A + C) + B = B + (A + C) (See Figure 71) 




A(B*C) (A* B)C (A*C)B 

Figure 70. A(B*C) = (A*B)C = (A*C)B 



c c c 


Figure 71. A + (B + C) = (A+ -C)+B = B + (A + C) 

However, when the same variable is repeated twice, as in 
A*A, this is the same as if two contacts of the same relay 
were connected in series and which, therefore, close and 
open at the same time. The effect is the same as if only one 
contact was connected to the circuit. The same can be said 
for the expression A +A, since two contacts of the same relay 
connected in parallel act as a single contact. Therefore: 

Theorem 5: 

A*A = A (See Figure 72) 

Theorem 6: 

A + A = A (See Figure 73) 


As you will notice, Boolean algebra is very simple; there are 
no coefficients and no exponents. 
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The Journey Begins At 

®®)®(L)(D® 

COMPUTER SYSTEMS INCORPORATED 

500 South Lake Avenue. Pasadena, CA 91101 (213) 684-3311 
Tuesday-Friday 12 noon to 8 pm, Saturday 12 noon to 6 pm 
Closed Sunday and Monday 


WHAT’S SO GREAT ABOUT PASCAL? 

The Pascal programming language is a masterpiece of 
human creativity. Originated by Niklaus Wirth at the Swiss 
Institute of Technology in 1968, Pascal was intended to 
aid in the teaching of programming as a systematic 
discipline, where the fundamental concepts of algorithms 
could be clearly and naturally expressed. 

Pascal makes it easy for the user to implement virtually any 
algorithm reliably , at an abstract, human level, rather than 
having to perform the usual mind-bending contortions 
required by most other programming languages. The ele¬ 
gance of the language has resulted in an unprecedented 
wave of enthusiasm among Earth’s knowledgeable com¬ 
puter users, toward adopting Pascal as an international 
standard programming language. 

WHAT’S A MICROENGINE? 

The Pascal microengine™ is the world’s first production 
implementation of Pascal in hardware. It executes UCSD 
Pascal intermediate code (P-code) directly as its machine 
language , thus being the first true “P-machine”. The signi¬ 
ficance of this accomplishment should not be overlooked! 

The desktop computer includes the 16-bit Pascal micro¬ 
engine processor, 64K bytes of RAM memory, complete DMA 
control functions, fully-integrated floppy disk controller 
(switch selectable for single or double density, mini or 8” 
floppy, and 1 to 4 disk drives), two RS-232 serial ports, 
two 8-bit parallel ports, floating point hardware, built-in 
power supply, self-test microdiagnostics, and an ASCII 
console. 

The unit includes the complete UCSD Pascal operating 

system: Pascal compiler, BASIC compiler, file manager, 
screen-oriented text editor, program debugger, and a 


graphics package, all supported by thorough documentation. 
UCSD’s version of Pascal incorporates random access file 
capability in addition to the sequential access capability 
of the original Pascal, and also includes x-y graphics. 

For most business, educational, and personal applications, 
UCSD Pascal is a nearly ideal implementation tool. There 
are more users of UCSD Pascal today than users of all 
other versions combined. UCSD and Western Digital have 
agreed mutually to support this LSI implementation as the 
true UCSD standard. 

HOW MUCH? 

Khalsa Computer Systems offers the Pascal micro¬ 
engine™ alone at $2995, with peripherals available at extra 
cost. A typical complete system, included CRT, 80-column 
printer, and dual 8” floppy disk drives costs less than $7000. 

For those of you who want to build the brilliant 
machines of the future, the Pascal microengine™ chipset 
is also available separately for $195. 

We offer significant quantity discounts on all the above 
items. Please write or call for more information. 
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#4 PERSONAL COMPUTER^ 
FOR ACCOUNTANTS 



SEKTOR 4 


| A payback period of one year can be accomplished. 

★ FEATURES * 

Industrial cabinet with natural wood finish fits any office decor. 

Dual 8 inch drives provide over one million characters of storage. 
S-100 bus card permits expansion to 4 terminals and 3 printers. 

High resolution ballistic printer has adjustable paper feed. 

Remote terminal contains ASCII keyboard and 10 key numberic pad! 


SOFTWARE 

General Ledger 
Accounts Payable 
Accounts Receivable 
Payroll 
income Tax 


SEKTOR 4 Available at 
COMPUTER COMPONENTS 
Of ORANGE COUNTY 

6791 Westminster Ave. 
Westminster, CA 92683 U.S.A. 

(714) 891-2584 


Don't wait. Act Now and Save $$$$$$ 

.Send for brochure or arrange for a demonstration.^ 


CIRCLE INQUIRY NO. 65 


COMING 
NEXT MONTH 

THE AUTOMATED HOME 

June brings you four big articles on the 
automated home. Bill Turner, Senior Editor 
Southeast Region, will be taking a look at the 
home of Richard Don in Chicago. Bill will de¬ 
tail the thinking and design that went into the 
complex controllers in this unique home. 

Staff reporter Betsy Gilbert reports on what 
Fairchild is doing with today’s technology to 
make American living better and safer. 

To round out this special feature section, 
home applications for the 6800 are presented 
along with how games fit into the home en¬ 
vironment. 

To make this issue even more exciting, we 
have two in-depth hardware articles on CRT 
monitor design and interfacing a CRT. Plus 
the new tutorial, the PASCAL NOTEBOOK, 
by Associate Editor Henry Davis. It’s a series 
you won’t want to miss. 



Now let’s see the result of multiplying a variable by a 
number. For example, A»0 is equivalent to connecting con¬ 
tact A in series with an open circuit as shown in Figure 74. 
Whatever the position of contact A, the circuit is always 
open. Therefore: 

Theorem 7: 

A*0 = 0 (See Figure 74) 



A • 0 

Figure 74. A«0 = 0 


The expression A # 1 is equivalent to connecting contact A 
in series with a closed circuit as shown in Figure 75. If con¬ 
tact A is “on” (closed) the circuit will be closed; if contact A 
is “off” (open) the circuit is open. So, the result is as if the 
contact was alone in the circuit. Therefore: 

Theorem 8: 

A®1 = A (See Figure 75) 



_ Figure 75. AM = A _ 

Adding a Variable to a Number 

Now, let’s add a variable to a number. In this case, A + 0 is 
equivalent to contact A connected in parallel with an open 
circuit, as shown in Figure 76, so: 


Theorem 9: 

A + 0 = A (See Figure 76) 



The case of A +1 is more interesting. Here the connection 
of a closed circuit in parallel with a contact, as shown in 
Figure 77, makes this contact entirely useless, since current 
will flow through the closed branch regardless of the position 
of the switch. Therefore: 

Theorem 10: 

A + 1 = 1 (See Figure 77) _ 



i 

Figure 77. A + 1 = 1 


This latter theorem is very important. It is sometimes said 
that “one” absorbs all that is added to it. 

COMPLEMENT RULES 

Our next step wil be to study the concept of negation, in¬ 
version or complement in Boolean algebra. In its original 
logic form, Boolean algebra words have two concepts: true 
and false. However, the negation of a truth is the same as a 
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falsity and, conversely, the negation of a falsity is the same as 
a truth. 

Therefore, the negation or complement of one is zero, and 
the negation or complement of zero is one. In a circuit, 
negation, inversion or complement involves changing from 
an open circuit to a closed circuit, and vice versa. 

A negation, inversion or complement is indicated by a line 
above the number or letter. Therefore, the complement rules 
are: 1=0 0=1 

Now suppose that we have variable A, which can assume 
the two conventional values, 1 and 0. The complement of 
this variablejs A (not A) which represents a contact of the 
relay, then A is a back contact of the same relay. Therefore, 
whatever the condition of operation of the relay, when one 
contact is on, the other is off and vice versa. 

If we combinejn the same circuit both variables, A and A, 
we find that A*A is equivalent to connecting a contact in 
series with its complement; and since one of these contacts 
will always be open when the other is closed, the circuit, as 
shown in Figure 78, will always be open. So: 

Theorem 11: 


A*A = 0 (See Figure 78) 



A + A, Figure 79, is equivalent to connecting a contact in 
parallel with its complement, and since one of the contacts 
will always be closed when the other is open, the circuit will 
always be closed. Therefore: 


Theorem 12: 

A + A = 1 (See Figure 79) 



A | — 


l 1 

A 

Figure 79. A + A = 1 


This last expression is very important and should be kept 
in mind, since it is frequently employed as an auxiliary, as 
will be explained later in this lesson. 

LOGIC APPROACH 

Up to now, all the operational rules of Boolean algebra 
were deduced following an electrical point of view. We will 
analyze now the last mentioned expressions as logic proposi¬ 
tions, so that we do not lose contact with Jogic. 

Considering A^as the proposition then A is its negation. 
So, if A is true, A is false, and vice versa. A*A is equivalent 
to a complex proposition in which it is simultaneously af¬ 
firmed that A and A are true. Since this is impossible due to 
the nature of the complement, this affirming complex pro¬ 
position must be false and, therefore, equal to zero. As an ex¬ 
ample, take the proposition: “X is a bird and X is not a bird.” 
This proposition must be false whatever X is. 

In the case of the relation A + "A, we have the following 
type of affirmation: “X is a bird or X is not a bird.” This pro¬ 
position is always true whatever X is. 

DISTRIBUTIVE LAW 

Continuing with our deductions, suppose that we have a 
circuit formed by three contacts: A(B + C), as shown in 
Figure 80. To flow through this circuit, the current must pass 
through contact A and then through contact B or contact C. 

The same will happen with a circuit comprising four con¬ 
tacts: AB + AC. To flow, the current must pass through con¬ 
tact A then through contact B, or through contact A and 
through contact C. 



Figure 80. A(B + C) = AB + AC 


From a functional point of view, both circuits shown in 
Figure 80 are equivalent; the only difference is that the first 
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system. Solves loading 
problems, cures keyboard 
"bounce”. Software cas¬ 
sette, has the power of 
a hardware modification! 
Qudrdiilccd satisfaction! 

Cat No. 1332 


C0MPUCRUISE 

$165 

Navigational computer 
for mobile or marine 
use! Features cruise 
control, fuel manage¬ 
ment, trip computer, 
timer/counter. Warns 
low fuel! Compensates 
for tire si/e, converts to 
metric! 44 functions. 
Mounts easily on dash 
Easy to read bright blue 
digits. With installation 


[ MICROPROCESSORS’ 
RAMS 

Order by type no. 

8080A $9.00 

6800 $ 9.00 

Z-80A $14.50 

1702A $ 3.00 

2708 $ 9.50 

21LO2-250 $ 1.50 

21LO2-450 $ 1.25 

21LO2-650 .90 

2114-200 $10.50 

2114-300 $ 9.50 

2114-450 $ 8.50 


California Computer Systems 

MEMORY ADD-ON 
16K $80 

For APPLE. TRS-80. EXIDY 

Everything you need! 
Installs in minutes, no 
special tools, no solder¬ 
ing! 250 nsec. 

C al No. 1156 

8” DISKS 

• Single density 
• IBM Compatible 

$40 box of 10 

Cat No. Type 

1145 32 sector holes, 

1 index hole 

1146 IBM 32, 3740, 3540, 

3770, 3790 „ 


AND V.l 

order by 

7805 T 

7812 T 

7815T 

7905T 

7912T 

7915T 

LM308V 

LM311N 

LM324N 

LM358N 

LM386N 

LM389N 

NE555V 

LM556N 

LM567V 

LM703N 

LM723N 

LM1458N 

LM1489N 


type no. 

2 for $1.50 
2 for $1.50 
2 for $1.50 
2 for $1.70 
2 for $1.70 
2 for $1.70 
2 for $1.30 
2 for $1.30 
2 for $1.20 
2 for .85 
2 for $1.50 
2 for $2.00 
4 for $1.00 
2 for $1.50 
2 for $1 40 
2 for .60 
2 for 90 
2 for .70 
2 for $2.00 
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SHUGART SA-400 
MINIFLOPPY DRIVE 


Hard and soft sectoring, 
single density, 35 track. 
Requires power supply. 
Cat No. 1154 


VERBATIM 
5'/4” DISKETTES 
$29.95 box of 10 

Type Use 
Soft sector TRS-80, Apple 

1148 Hard, 10 hole North Star 

1149 Hard, 16 hole Micropolis 


DATA CASSETTES 
10 for $17 

Highest quality, leader¬ 
less! With protective 
plastic case. 

Cat No. 1142 


FREE CATALOG! 

New, hot off the press! 
Top quality, low cost 
factory fresn IC's, leds, 
readouts, semis, compu¬ 
ter add-ons, boards, test 
equipment, books, soft- 

u,aro. PC aide, and 

more! 


Pay by check, COD, Visa, or Mastercharge. 
Order b> phone or mail. Please include phone 
no. USA add $1.50 for shipping/handling, or 












































employs only one contact A and therefore is more 
economical than the second. The following theorem is called 
the Distributive Law. 

Theorem 13: 

A(B + C) = AB+AC 

Note that when we changed from A(B + C) to AB+AC we 
performed an operation similar to that of multiplication in 
algebra. The inverse transformation from AB + AC to A(B 
+ C), would be similar to that of the extraction of a common 
factor in algebra. 

:n> 

_ 


A<B + C) - AB + AC 

Figure 81. Transformation of a logic circuit to its 

equivalent. 

In Figure 81 we show, in the form of logic computer block 
symbols, the difference between two equivalent circuits. 
Note how the configuration of the circuit changes from one 
“and” and one “or” circuit to two “ands” and one “or” cir¬ 
cuit when the algebraic multiplication is performed. 
TRANSFORMATION AND MINIMIZING 
OF CIRCUITS 

Now, let us apply the theorems together with the basic 
rules of Boolean algebra previously learned to the transfor¬ 
mation and minimizing of circuits. 

Suppose that we have the switching circuit illustrated in 
Figure 82; its expression will be: A(A + B) = S. 



B A(A+ B) = s 

_ Figure 82. Minimizing a circuit. _ 

Performing the indicated multiplication we obtain: 
A(A + B) = AA + AB. 

But we know from Theorem 5 (Figure 72) that AA = A, 
and therefore AA+AB=A+AB and factoring for A, we ob¬ 
tain A + AB = A(1 + B); but considering that 1 + B = 1, then 
A(1 +B) = A®1, and since A®1 = A (Figure 75), we have 
found the following theorem: 

Theorem 14: 

A(A + B) = A 

By means of these algebraic manipulations we have deter¬ 
mined that the initial three-contact circuit is transformed first 
into a four-contact circuit (AA + AB) which later was mini¬ 
mized to a single-contact circuit. 

MINIMIZING COMPLEX EXPRESSIONS 


A more complex expression, corresponding to the switch¬ 
ing circuit illustrated in Figure 83, is expressed by the follow¬ 
ing equation. (A + AD) (AC + B) = S. 



A + AD 

AC + B_ 

"A AC + "A DAC + AB + ADB 



The first and second terms of the product contain XA 
which, in accordance with Theorem 11 (Figure 78) is 0, so 
they may be eliminated. We have then the third and fourth 
terms left, from which we can extract the common factor AB, 
so: AB + ADB = AB (1 + D) 

Since, according to Theorem 10 (Figure 77) 1 + D = 1, we 
are left with:"AB. 

We have thus reduced by means of algebraic operations, a 
circuit of six contacts to only two contacts as shown at the 
bottom of Figure 83. 

In Figure 84 we present, with computer symbols, the cir¬ 
cuit equivalent to the switching circuit of Figure 83. Note 
that the equivalent circuit consists of only an “and” circuit to 
which A and B signals must be applied simultaneously in 
order to obtain an output. Observe in illustration A of Figure 
84 that this is true, since signals D and C are not present. 
Signals D and C by themselves have no effect on the circuit. 
So all the other “and” and “or” logic circuits are superfluous. 



From a logic point of view, what we accomplished with the 
transformation is to clarify a proposition whose meaning was 
made obscure by the complicated manner in which it was 
expressed. 

Another Example 

Continuing with circuit examples, you will remember that 
in a previous discussion related with logic elements, we pre¬ 
sented two forms to express the “exclusive or’\_The first 
was: (A + C) (A+C), while the second form was AC + AC. 

The deduction was made following a descriptive pattern 
since, at that time, we did not know how to demonstrate their 
equivalence. We will present this mathematical demonstra¬ 
tion now. First, we perform the indicated multiplication, term 
by term: 

A + C 

X + C_ 

AA+AC + AC + CC 

The first and last terms are eliminated since they are equal 
to 0. Thus, we have demonstrated the equivalence between 
the two expressions: (A + C)(A + C) = AC+AC. For con¬ 
venience, in order not to have to present the whole expres¬ 
sion to indicate “exclusive or”, the symbol A @ B is some¬ 
times employed. 

DEMORGAN’S THEOREMS 

I. “The complement or negation of a logic product is equal 
to the addition of the addition of the complements of the 
factors.” In other words, in order not to satisfy a logic 
product, it is only necessary not to satisfy any of the con¬ 
ditions that comprise this product. B = AB = X+E. 

II. “The complement or negation of a logic addition is equal 
to the product of the complements of the addends.” In 
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Compucolor II 



CRT Display 

Eight color display with 32 lines 
of 64 characters (2048) char- 
acters). Two different character 
sizes. Plotting graphics of 128 
x 128, including vector 
generating software. 64 stan¬ 
dard ASCII characters and 64 
additional special graphic 
chararters. Includes a Stan¬ 
dard RS232C Terminal Mode 
for time sharing use. 60Hz 
refresh. Usable screen area 9" 
wide x 6W high. 

Microcomputer 

Central Processing Unit: 8080A, 

2 microsecond cycle time with 
total memory expandable to 64K 
bytes. 

I/O 

Input /Output Ports: system is de¬ 
signed for 478 ports, with 30 
ports implemented in standard 
unit. Including one RS-232C 
Serial Asynchronous Channel 
for a printer or modem. 

Baud Rate: Independent Baud 
rate generators for one of 7 
Baud rates from 110 Baud to 
9.6K Baud. 

Keyboard 

Separate keyboard with Standard ASCII 4 level, 
coded with 192 codes. Includes 71 gold crossbar 
commercial key switches. CPU Reset and 
Automatic disk loading (AUTO) keys are 
included. Optional: 101 keys with color and 
numeric clusters or 117 keys with 16 additional 
function keys. 

Language 

Language: DISK BASIC 8001 interpreter in 
ROM memory includes: 29 statement types: 
CLEAR, DATA, DEF, DIM, END, FILE, FOR, 
GET, GOSUB, GOTO, IF, INPUT, LOAD, 
NEXT, ON, OUT, PLOT, POKE, PRINT, PUT, 
READ, REM, RESTORE, RETURN, SAVE, 
STEP, THEN, TO and WAIT. 3 command 
types: CONT, LIST and RUN. 19 mathematical 
functions: ABS(x), ATN(x), CALL(x), 
COS(x), EXP(x), FNx(y), FRE(x), INT(x), 
INP(x), LOG(x), PEEK(x), POS(x), RND(x), 
SGN(x), SIN(x), SPC(x), SQR(x), TAB(x), 
and TAN(x). 9 string functions: ASC(x$), 
CHR$(x), FRE(x$), LEFT$(x$I), LEN(x$), 
MID$(x$,I,J), RIGHT$(x$,I), STR$(x) and 
VAL(x$). 12 Disk File commands: COPY, 
DELETE, DEVICE, DIRECTORY, DA PLI¬ 
CATE, INITIALIZE, LOAD, READ, RE¬ 
NAME, RUN, SAVE, and WRITE. 

CRT Terminal Commands: Page /Roll mode; 
Erase Line; Erase Page; Tab; Two Character 
Sizes; Blink; Cursor Home’ Left, Right’ up and 
Down; Cursor XY Addressing; Cap lock; CPU 
reset; Foreground /Background Color Selection; 
15 Plot Modes; Blind Cursor Mode; Local, Full 
and Half Duplex Modes; Write Vertical Mode; 
and Transmit Cursor and Page Modes. 


Available for the Compucolor II 
Programmed Sof-Disk Albums 

Sampler (includes; 1. Demo Program of Sample 
Displays and CCII Features; 2. Game of 
Concentration; 3. One-Armed Bandit; 4. 
Biorhythms; 5. Loan and Repayment Schedule; 
6. Memory Diagnostics for the CCII; 7. En¬ 
gineering Application.) 

Math Tutor: Math Tutor, Checkbook, Recipe 
Program, Math Dice, Biorhythms 
Star Trek: Star Trek, Lunar Lander, Shoot, 
Tic-Tac-Toe 

Hangman: Hangman, Math Tutor, Two to Ten 
Chess: Chess, Acey Deucey, Line Five, 
Biorhythms 

Othello: Othello, Math Dice, Concentration 
(Numbers), Concentration (Letters) 

Text Editor 

Assembler for the 8080 

Some programs may require additional RAM 
memory. 

Blackjack 

Cubic Tic Tac Toe 

Personal Finance Vol. 1 (Interest) 

Personal Finance Vol. 2 (Loans) 

Bonds and Securities 
Equity 

Personal Data Base 
Income Tax-78 

Maintenance Manual 
Programmer’s Manual 


Mini Disk Drive 

Uses 5 W' square Compucolor II 
diskettes. 

Tracks: 40 

Track Density: 48 tpi 
Power on Delay: 1 second 
Access Time: (average 20 tracks) 
200 ms 

Average Latency: 200 ms 
Transfer rate: 76.8 Kilobits /sec. 
Performance specifications: 
Capacity formatted 51.2K 
Bytes/Side. 

Both sides usable by flipping 
diskette over. 

ROM Memory 

Read Only Memory (ROM): 16K 
bytes of nondestructive read only. 
Memory sockets included for 8K 
bytes of additional EPROM / 
MROM memory. Includes 
DISK BASIC, File Control 
System, and Terminal 
Software. 

RAM Memory 

Random Access Memory 
(RAM): 4K bytes for screen 
refresh. 8K bytes for user 
workspace. (Optional I6K 
and 32K — Models 4 and 5.) 

BUS 

50 pin bus: provides all addresses, data, clocks, 
etc., to allow the Compucolor II to be expanded 
with additional peripherals in the future. 

Prices 

Model 3 — 8K user RAM — $1,495 Retail* 
Model 4 — 16K user RAM — $1,695 Retail* 
Model 5 — 32K user RAM — $1,995 Retail* 
Warranty 90 days 

Available options 

Second Compucolor II Mocro-Floppy™ disk 
drive — $400* 

Expanded Keyboard: 101 keys with color and 
numeric clusters — $135* 



Deluxe Keyboard: 117 keys, including 16 addi¬ 
tional function keys — $200* 



Additional 16K RAM Module (only for Model 3 
and 4) —$375* 


*U.S. Domestic Prices 
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SYBEX 


LEADER IN 

miCROCOmPUTER EDUCATION 




mcbopsockos 

I INTERFACING 

techniques 




AN INTRODUCTION TO PERSON¬ 
AL AND BUSINESS COmPUTING 

by Rodnay Zaks 
250 pp, ref C200 $6.95 

The basic introductory text 
on microcomputers, with a 
detailed evaluation of the fea¬ 
tures and peripherals required 
for specific applications. No 
prior computer knowledge 
required. 

miCROPROCESSORS: from Chips 
to Systems 
by Rodnay Zaks 
420 pp, ref 0201 $9.95 

An educational text, used 
worldwide at universities and 
in industry designed to teach 
all the fundamentals of mi¬ 
croprocessors, the assembly 
of a system, and its use. 


miCROPROCESSOR 
INTERFACING TECHNIQUES 

Austin Lesea and Rodnay Zaks 
416 pp, ref 0207 $11.95 

All the basic interfacing 
techniques, from keyboard to 
floppy disk, including the 
standard buses (S100 to 
1EEE488). 

miCROPROCESSOR LEXICON 

120 pp, ref XI $2.95 

Dictionary and tables. All the 
definitions of the micropro¬ 
cessor world in a pocket 
book format. 

miCROPROGRAmmED APL 
IfTIPLEmENTATION 

330 pp, ref ZIO $25.00 
How to design an APl 
interpreter. 



PROGRAmmiNG THE 6502 

by Rodnay Zaks 
320 pp, ref 0202 $10.95 

An introductory program¬ 
ming text for the 6502. Does 
not require any prior pro¬ 
gramming knowledge. From 
arithmetic to interrupt-driven 
input-output techniques. 
6502 APPLICATIONS BOOK 
by Rodnay Zaks 
ref D302 $12.95 

Actual application programs 
to interface the 6502 to 
the real world, from LED to 
motor, and analog-digital 
conversion. Available Shortly 


SELF STUDY COURSES ON 
CASSETTES 

Ten courses to study at home 
or in the car. The most time- 
efficient way to learn. Includes 
workbook and cassettes. 
INTRODUCTORY $29.95 ea 
SI - INTRODUCTION TO MI¬ 
CROPROCESSORS (2.5 hrs) 
S2-PROGRAMMING MICRO¬ 
PROCESSORS (2.5 hrs) 
COMPREHENSIVE $59.95ea 
SB1 - MICROPROCESSORS 
(12 hrs) 

SB2-MICROPROCESSOR 
PROGRAMMING (10 hrs) 
SPECIALIZED $49.95 

SB7-MICROPROCESSOR 
INTERFACING (6 hrs) 


TO ORDER 

By phone: 415 848-8233, V.sa, MC, 
Amer Express 

By mail: circle books on ad. Include 
payment. 

Shipping: add $1.50 per book (UPS) or 
65$ (4th class - allow 4 weeks). 
Double for cassettes and overseas. 
Tax: in California add tax. 

IA5 

FREE DETAILED CATALOGUE 


AVAILABLE AT BOOKSTORES, COMPUTER, 
AND ELECTRONIC SHOPS EVERYWHERE 



IA5 

2020 Milvia Street 
Berkeley, CA 94704 
Tel 415 848-8233 Telex 336 311 


other words, in order not to satisfy a logic addition, it is 
necessary not to sati sfy simultaneously both of its com¬ 
ponents. B = A + C = AC. 


Operational Rules 

From De Morgan’s theorems, we can derive the following 
general rule: “To invert or complement an expression in 
Boolean algebra it is only necessary to invert all of its com¬ 
ponents and to change all the multiplication signs to addition 
signs and all the addition signs to multiplication signs.” 

We have determined then that there is a great affinity be¬ 
tween the two relations, “and” and “or”. This affinity will 
permit us to derive some new operational rules. 

Take the expression A + BC. It is evident that if we invert 
an expression and later reinvert it, the expression maintains 
its original value. That is, 


Theorem 15: 

A = A 


If we invert the expression A + BC twice, which we indicate 
by placing another line on top of the complemented expres¬ 
sion, we then have: — 

A + BC = A + BC 

Performing the first inversion we obtain: 


A + BC = A # (B + C) 
and performing the multiplication: 

A + B = A B + A C 

and making the second inversion we find the following 
theorem: 


Theorem 16: 

(A + B) (A + C) = A + BC 

As you have noticed, we have inverted an expression and, 
after having converted by this means its additions to multipli¬ 
cations, we performed the multiplication term by term. Once 
the operation was performed, we reinverted it, changing 
again multiplications to additions. 


[ BOOLEAN 



SUMMARY: 

] functions] 

BOOLEAN 

SYMBOLS 


i* n °i — i • l - 


I OR 1 - 1 + 1 - 


EXCLUSIVE 

OR 


EQUIVALENCE 

u, , 


:-c 


3- 


NEGATION 


hdh 


AND CONDITION 
VALID ONLY 
WHEN A AND B 
ARE BOTH VALID 


OR CONDITION 

VALID WHEN 


EITHER A OR B 
OR BOTH ARE 
VALID 
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But what is more important to note by examining Theorem 
16 is that, in Boolean algebra, it is not only possible to multi¬ 
ply term by term, but also to add factor to factor. This is so 
because by a simple inversion, multiplication is changed to 
addition and vice versa; and all the operational rules that are 
derived for one, can also be applied to the other. 

Theorem 17 

An expression composed by two addends of the type: A + AB 
is always reduced to the first addend. The algebraic reduction 
is very simple; we simply extract the common factor: A + B = 
A(1 + B). But since according to Theorem 10, 1 + B is equal 
to 1, then: A(1 + B) = A(1)=A, and therefore Theorem 17 
is: A + AB = A. 

The formula in a logic proposition would be the same as to 
say: “To be able to vote, you must be over 18 or you must 
be over 18 and be a university student.” It is logic to see that 
any person who is over 18 and is a university student more 
than satisfies the conditions, since with only being over 18 
he can vote. So, the last condition is entirely redundant. 

Theorem 18 

An expression of the type A + AB is also reduced very easily. 
We add factor to factor_and the first addend to the second, 
thus: A + AB = (A_+ A) (A + B). But since according to 
Theorem 12: A + A = 1 (Figure 79), then: 

A + AB =1(A + B)=A + B 
Theorem 18: A + AB = A + B 
Setting this formula up as a logic proposition would be the 
same as to say: “Alfred ate the pie or Benjamin ate the pie, 
and not Alfred.” The logic result is that either Alfred or Ben¬ 
jamin ate the pie. 

TABLE OF BOOLEAN ALGEBRA THEOREMS 

In the following table, we present all the theorems of 
Boolean algebra previously studied. By referring to this table 
it is easier to remember the basic principles studied, and to 
apply them to the solution of problems. 



Gomputerlcind® 

INTRODUCES: 



fTlAIN BRAIN 


THE ONE - STOP CENTER 
FOR BOOKS, SELF-STUDY 
COURSES AND OTHER 
EDUCATIONAL MEDIA ON 
PERSONAL COMPUTING. 
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IMSAI • Cromemco • SWTPC • 
Lear-Siegler • Problem Solvers • 

RCA • North Star • Verbatim • 
ALPHA Micro Systems and others 

Fast, off the shelf delivery. 

Give us a call TOLL FREE 

800 / 523-5355 

MARKETLINE SYSTEMS, Inc. 

2337 Philmont Ave., Huntingdon Valley, Pa. 19006 
215/947-6670 • 800/523-5355 

Dealer Inquiries Invited 


CIRCLE INQUIRY NO. 70 


SORRY 

You have probably noticed that Program¬ 
ming Technique Night 5 did not appear in 
this month's issue. This in-depth program¬ 
ming tutorial has been temporarily suspend¬ 
ed until the September issue. 

With the September issue, Programming 
Technique will resume with Night 5. This 
hiatus is important because it gives us and 
Bill Turner the chance to correctly evaluate 
the many responses we have had toward the 
tutorial. 

When the series resumes, Bill will be equat¬ 
ing the assembly coding techniques to the 
BASIC language coding techniques. We have 
found from the numerous letters sent to us 
that many of the readers would like to see 
this approach, since they feel that it would 
help in the understanding of the art of com¬ 
puter programming as it relates to the micro 
world. Because the purpose of the tutorial is 
to assist you, the reader, this approach will 
be taken. 

So stand by and look for Programming 
Technique Night 5 in the September issue. 


Table 13. Boolean Algebra Theorems 

1. A • B = B • A 

10. A + 1 = 1 

2. A+B=B+A 

11. A • H a 0 

3. A (B»C) = (A*B|C 

12. A + 7 s 1 

4. A + (B + C) = (A + B) + C 

13. A (B + C) = AB + AC 

5. A • A = A 

14 A (A+ B) = A 

6. A + A = A 

15. T = A 

7. A • 0 = 0 

16. (A+ B)(A + Q = A + BC 

8 A • 1 = A 

17 A + AB = A 

9. A + 0 = A 

18. A +*B = A + B 


NEXT MONTH 

Due to space limitations, Minimization By Karnaugh Maps 
was not covered in this tutorial. A brief overview on Kar¬ 
naugh Maps will be given in Unit Four. In Unit Four subjects 
such as logic circuits, 1C concepts and logic families will be 
introduced.□ 

UNIT THREE SUMMARY/QUIZ 

1. When applying Boolean algebra to an electrical circuit 

(A) a notion of “true” corresponds to an open circuit; 

(B) a closed circuit is considered as having a value of 
“0” and an open circuit is considered as having a value 
of “1”; (C) a closed circuit is considered as having a 
value of “1 ” and an open circuit is considered as hav¬ 
ing a value of “0”; (D) a notion of “false” corresponds 
to a closed circuit; (E) the power should be “on”. 

2. Binary number 11110 equals decimal number (A) 18; 
(B) 8; (C) 30; (D) 23; (E) 32. 

3. Convert 101011010110 2 to hexadecimal; (A) 10 13 
6 16 ; (B) 3 9 F 16 ; (C) 63 8 ; (D) 83C 10 ; (E) AD6 16 . 

4. In applying Boolean algebra to relay type switching cir¬ 
cuits, an expression of the type A*B corresponds to (A) 
a contact of relay A connected in parallel with a contact 
of relay B; (B) a contact of relay A connected in series 
with a contact of relay B; (C) the front contact of relay A 
connected to the back contact of relay B; (D) the back 
contact of relay A connected to the front contact of relay 
B; (E) a combination of logic circuits. 

5. In Boolean algebra, the word “OR” is expressed by (A) 
the plus sign; (B) the multiplication sign; (C) the minus 
sign; (D) the division sign; (E) the percent sign. 

6. Decimal number 1 7 equals binary number (A) 10001; 

(B) 1010; (C) 1011; (D) 100010; (E) 10100. 

7. A negation, inversion or complement is indicated by 

(A) a line under the number or letter; (B) a parenthesis; 

(C) an addition sign in front of the number or letter; (D) 
a line above the number or letter; (E) a multiplication 
sign ahead of the number or letter. 

8. The two’s complement of 01001 is (A) 00100; (B) 
10001; (C) 11100; (D) 00000; (E) 10111. 

9. 1 is equal to: (A) A + 0; (B) A+1; (C) A + A; (D) AA; 
(E) 1A 

10. A + B + C is loqically equivalent to: (A) A + B + C; (B) 
A(B + C); (C) ABC; (D) ABC; (E) A + B + C 

11. Subtracting 011 2 from 110 2 , the difference is (A) 001; 

(B) 011; (C) 1001; (D) 101; (E) 010. 

12. According to the rules for binary subtraction, (A) “0” 
minus “1 ” equals “1” with a borrow of “1”; (B) “1 ” 
minus “1 ” equals “1 ” with no borrow; (C) “0” minus 
“1” equals “1” with no borrow; (D) “1” minus “0” 
equals “1” with borrow of “1”. 

13. The binary number 11001 is equal to decimal number 
(A) 12; (B) 20; (C) 25; (D) 32; (E) 43. 

14. The equation AC + AC = E applies to (A) an OR cir¬ 
cuit; (B) an AND circuit; (C) an exclusive OR circuit; 

(D) a NOT circuit; (E) an inverter. 

15. An expression composed by two addends of the type 
A + AB (A) is never reduced to the first addend; (B) 
cannot be reduced to the first addend; (C) is redundant; 
(D) is very difficult to reduce; (E) is always reduced to 
the first addend. 

1 6. Please rate the third unit of the NTS mini-series: (A) 
very good; (B) good; (C) average; (D) poor. 
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*SP€Cim BONUS OFF€R* 
with VCCTOR SVST€M B from 

Sunshine Computer Company 


The Vector MZ System B is ideal for word 
processing and business applications. We’re deliver¬ 
ing this factory assembled Z80-based system com¬ 
plete with 630K dual 514” disk drives, 48K memory, 
12K PEOM/RAM, 

Bitstreamer I/O 


and the new Mindless Terminal with an 80x24 dis¬ 
play. We add the Qume Sprint 5 letter-quality print¬ 
er! We even include MZOS disk operating system 
and CP/M. 

Business applications, word processing and 
development software are available. 




*Bonus Offer 

For one month only, we’re 
including 50 Maxell Diskettes 
free with your total System B 
purchase, as shown above. 

To receive this bonus, sim¬ 
ply mention that you saw this 
ad at the time you place your 
order. This offer is valid until 
June 15, 1979. 



Don't Wait! 

Call or come in today for a demonstration of 
the Vector System B, or any of our other fine com¬ 
puter systems. We provide on-time delivery, 90-day 
warranty on all systems and peripherals, field 
service, a complete line of system supplies, and the 


best pricing you’ll find anywhere. 

We’re easy to find . . . centrally located be¬ 
tween Los Angeles and Orange Counties, just a 
minute off the San Diego Freeway. If you aren’t 
nearby, we’ll ship to you. So don’t wait. Call us 
now! 


Sunshine Computer Company 

20710 South leapujood five.-Carson, California 90746 (213) 327-2118 
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RCA Cosmac Super Elf Computer $106.95 


Compare features before you decide to buy any 
other computer. There is no other computer on 
the market today that has all the desirable bene¬ 
fits of the Super Elf for so little money. The Super 
Elf is a small single board computer that does 
many big things. It is an excellent computer for 
training and for learning programming with its 
machine language and yet it is easily expanded 
with additional memory, Tiny Basic, ASCII 
Keyboards, video character generation, etc. 
The Super Elf includes a ROM monitor for pro¬ 
gram loading, editing and execution with SINGLE 
STEP for program debugging which is not in¬ 
cluded in others at the same price. With SINGLE 
STEP you can seethe microprocessor chi p opera¬ 
ting with the unique Quest address and data bus 
displays before, during and after executing in¬ 
structions. Also, CPU mode and instruction cycle 
are decoded and displayed on eight LED indicator 
lamps. 

An RCA 1861 video graphics chip allows you to 
connect to your own TV with an inexpensive video 
modulator to do graphics and games. There is a 
speaker system included for writing your own 
music or using many music programs already 
written. The speaker amplifier may also be used 
to drive relays for control purposes. 

A 24 key HEX keyboard includes 16 HEX keys 
plus load, reset, run, wait, input, memory pro- 

Super Expansion Board with 

This is truly an astounding value! This board has 
been designed to allow you to decide how you 
want it optioned. The Super Expansion Board 
comes with 4K of low power RAM fully address¬ 
able anywhere in 64K with built-in memory pro¬ 
tect and a cassette interface. Provisions have 
been made for all other options on the same 
board and it fits neatly into the hardwood cabinet 
alongside the Super Elf. The board includes slots 
for up to 6K of EPROM (2708, 2758, 2716 or Tl 
2716) and is fully socketed. EPROM can be used 
for the monitor and Tiny Basic or other purposes. 
A IK Super ROM Monitor $19.95 is available as 
an on board option in 2708 EPROM which has 
been preprogrammed with a program loader/ 
editor and error checking multi file cassette 
read/write software, (relocatible cassette file) 
another exclusive from Quest. It includes register 
save and readout, block move capability and 
video graphics driver with blinking cursor. Break 
points can be used with the register save feature 
to isolate program bugs quickly, then follow with 
single step. The Super Monitor is written with 
subroutines allowing users to take advantage of 
monitor functions simply by calling them up. 


tect, monitor select and single step Large, on 
board displays provide output and optional high 
and low address. There is a 44 pin standard 
connector for PC cards and a 50 pin connector for 
the Quest Super Expansion Board Power supply 
and sockets for all IC’s are included in the price 
plus a detailed 127 pg. instruction manual which 
now includes over 40 pgs. of software info, in¬ 
cluding a series of lessons to help get you started 
and a music program and graphics target game. 
Many schools and universities are using the 
Super Elf as a course of study. OEM’s use it for 
training and research and development. 
Remember, other computers only offer Super Elf 
features at additional cost or not at all. Compare 
before you buy. Super Elf Kit $106.95, High 
address option $8.95, Low address option 
$9.95. Custom Cabinet with drilled and labelled 
plexiglass front panel $24.95. NiCad Battery 
Memory Saver Kit $6.95. All kits and options 
also come completely assembled and tested. 
Questdata. a 12 page monthly software publica¬ 
tion for 1802 computer users is available by sub¬ 
scription for $12.00 per year. 

Tiny Basicfor ANY 1802 System 

Cassette $10.00. On ROM $38.00. Super Elf 
owners, 30% off. Object code listing with man¬ 
ual $5.00. Object list, manual and paper tape 
$10.00. Original ELF Kit Board $14.95. 

Cassette Interface $89.95 

Improvements and revisions are easily done with 
the monitor. If you have the Super Expansion 
Board and Super Monitor the monitor is up and 
running at the push of a button. 

Other on board options include Parallel Input 
and Output Ports with full handshake. They 
alloweasy connection of an ASCII keyboard to the 
input port. RS 232 and 20 ma Current Loop for 
teletype or other device are on board and if you 
need more memory there are two S-100 slots for 
static RAM or video boards. A Godbout 8K RAM 
board is available for $135.00. Also a IK Super 
Monitor version 2 with video driver for full capa¬ 
bility display with Tiny Basic and a video interface 
board. Parallel I/O Ports $9.85, RS 232 $4.50, 
TTY 20 ma l/F $1.95, S-100 $4.50. A 50 pin 
connector set with ribbon cable is available at 
$12.50 for easy connection between the Super 
Elf and the Super Expansion Board. 

The Power Supply Kit for the Super Expansion 
Board is a 5 amp supply with multiple positive 
and negative voltages $29.95. Add $4.00 for 
shipping. Prepunched frame $5.00. Case 
$10.00. Add $1.50 for shipping. 


Auto Clock Kit $15.95 

DC clock with 4-.50" displays. Uses National 
MA-1012 module with alarm option. Includes 
light dimmer, crystal timebase PC boards. Fully 
regulated, comp, instructs. Add $3.95 for beau¬ 
tiful dark gray case. Best value anywhere. 


RCA Cosmac VIP Kit $229.00 

Video computer with games and graphics. 
Fully assem. and test. $249.00 


Not a Cheap Clock Kit $14.95 

Includes everything except case. 2-PC boards. 
6-.50" LED Displays. 5314 clock chip, trans¬ 
former, all components and full instructions. 
Orange displays also avail. Same kit w/.80 
displays. Red only. $21.95 Case $11.75 


60 Hz Crystal Time Base Kit $4.40 

Converts digital clocks from AC line frequency 
to crystal time base. Outstanding accuracy. Kit 
includes: PC board, 1C, crystal, resistors, ca¬ 
pacitors and trimmer. 


Digital Temperature Meter Kit 

Indoor and outdoor. Switches back and forth. 
Beautiful. 50" LED readouts. Nothing like it 
available. Needs noadditional parts for com¬ 
plete, full operation. Will measure -100° to 
+ 200°F, tenths of a degree, air or liquid. 
Very accurate. $39.95 

Beautiful woodgrain case w/bezel $11.75 


NiCad Battery Fixer/Charger Kit 

Opens shorted cells that won’t hold a charge 
and then charges them up, all in one kit w/full 
parts and instructions. $7.25 


PROM Eraser Will erase 25 PROMs in 
15 minutes. Ultraviolet, assembled $34.50 


Rockwell AIM 65 Computer 

6502 based single board with full ASCII keyboard 
and 20 column thermal printer. 20 char, al¬ 
phanumeric display, ROM monitor, fully expand¬ 
able. $375.00. 4K version $450.00. 4K Assem¬ 
bler $85.00, 8K Basic Interpreter $100.00 
Power supply assembled in case $60.00. 


P.O. Box 4430N Santa Clara, CA 95054 
will call only: (408) 988-1640 
^^^^^ 2322 Walsh Ave. ^ 

uuc/L 

ELECTRONICS 

CLOCK MODULES Complete alarm docks 

rpartv tn hnnk tin with transform pc anil 


to hook up with transformer and 
switches Very compact with 50" and 
.84” digits. 

MA1002A. CorE .50’ 8.95 

102P3 Transformer 2.25 

MA1010A. C or E .84 11.95 

102P2 Transformer 2.25 

Special Iranstormer and six 
switches when purchased 
w,'module 

MAI 003 car module .3* 
green lluor. display 

RESISTORS y. wan 5% 
tOpertype .03 lOOOpertype .012 
25 per type .025 350 P'cce pack 
100 per type .015 5 per type 6.75 

KEYBOARDS 

56 key ASCII keyboard kit $67.50 


2.95 

15.95 


TERMS: $5.00 min. orderU.S. Funds. Calif residents add 6% tax. 
BankAmericard and Master Charge accepted. 

Shipping charges will be added on charge cards. 


74LSOO TTL 

74LSOON 

74LS02N 

74LS04N 

74LS05N 

74LS08N 

74LS10N 

74LS13N 

74LS14N 

74LS20M 

74LS22N 

74LS28N 

74LS30N 

74LS33N 

74LS38N 

74LS74N 

74LS75N 

74LS90N 

74LS93N 

74LS95N 

74LS107N 

74LS112N 

74LS113N 

74LSI32N 

74LS136N 

74LS151N 

74LS155N 

74LS157N 

74LS162N 

74LS163N 

74LS174N 

74LS190N 

74LS221N 

74LS258N 

74LS367N 

LINEAR 

CA3045 

CA3C46 

CA3081 

CA3C82 

CA3C89 

LM301AN/AH 

LM305H 

LM307N 

LM308N 

LM309H 

LM309K 

LM311HN 

LM3I7T/K 

LM318 

LM320K-S 

LM323K-S 

LM320K-12 

LM320K-15 

LM320T-5 

LM320T-8 

LM320T-12 

LM320T-15 

LM324N 

. M 

t M340K-5 

LM340K-8 

LM340K-1? 

LM340K-15 

LM340K 24 

LM340T-5 

LM340T 8 

LM340T-12 

LM340T-15 

LM310T-18 

LM340T 24 

LM343H 

111360 

LM370 

LM377 


75108 
75491CN 
75492CN 
75494CN 

A to 0 CONVERTER 


8700CJ 

870 r.N 

8750CJ 

L0130 

940CC..V f 

ICL7103 

ICL7107 

CMOS 

C034001 Fair. 

CO4000 

C04001 

CO4002 

CO4006 

CD4007 

C04008 

CD4009 

C04010 

C04011 

CD4012 

C04013 

CD4014 

CO<015 

C0<016 

C0<0I7 

CD <018 

C04019 

C04020 

CD-4321 

CO<022 

CO<023 

C04024 

014375 

CO<026 

C0<027 

C04029 
C0<030 
C04035 
C04040 
CD4042 
CD4343 
C0<04< 
C04046 
CO<049 
1 ' 

CD4051 

CD40S0 

CD4056 

C04069 

CD4070 

CD4071 

CD4072 

CD4C73 

CD4075 

CO4078 
CD4081 

CD-4116 
CD4490 
CD<507 
CO*508 

C04511 

CD4515 

CD4516 

C04516 

C04520 

CD4527 

CD<528 

CD4553 

C04566 

C04583 


4 50 MOS,'MEMORY RAM 


PROM 

4 50 1702A 

3 00 N82S23 

5 50 N82S123 

3.10 N82S126 

3.50 N82S129 

3.20 S82S131 

169 N82S136 

2 75 N82S137 

1 69 2708 

1 69 0M8577 

8223 
2716T1 


13 95 2102AL-4 

9 95 21L02-1 

7^0 21F02 

9.50 2104A-4 

14.25 21070 

2111-1 
2112-2 
50 2114L-3 

!l6 4116 

.21 2513B 

2! MM5262 

110 MM5280 

21 MM5320 

21 MMS330 
39 P04110-3 

39 P04I10-4 

pi PS101L 
21 420OA 


H00165-5 
MM57100 
GIAY38SOO-1 
MCM657 1 A 


3 95 2716 Intel 

]60 CRYSTALS 


1.25 


2 MHz 
4 MH2 


5 MHz 
- - 10 MHz 

3 95 is M Hz 

7.90 20 MHz 

10 95 32 mhz 

6 30 32768 MHz 

■40 1.8432 MHz 

3-00 3 5795 MHz 

9 95 2.0100 MHz 

5.94 2.097152 MHz 

4 00 2.4576 MHz 

5 00 3. 2 7 6 8 MHz 

13 95 5.0688 MHz 

9 95 5 185 MHz 

2 90 5.7143 MHz 

1 50 6.5536 MHz 

6 95 14.31818 MHz 

4 50 18 432 MHz 

9 95 22 ii84MHz 


3 75 


Fuly assembled 70.00 Enclosure 14.95 

LEDS 

Red T018 .15 

Green. Yellow T018 .20 

Jumbo Red .20 

Green. Orange. Yellow Jumbo .25 
Cliplite LEO Mounting Clips 8.'S1.25 
(spec4y red. amber, green, yellow, clear) 
CONTINENTAL SPECIALTIES in stock 
Complete line of breadboard test equip. 
MAX-100 8 digit Freq. Ctr. $128.95 
OK WIRE WRAP TOOLS in stock 
Portable Multimeter $18.00 

DIGITAL THERMOMETER S48.50 
Sail upei General purpose or medical 
32 -230 F. Disposable probe cover 
r 2 accuracy. Comp. Assy in 
compact case. Switches from F to C 
COMPUTER 80AR0 KITS 
3K RAM Beard Kit $135 00 

4K EPROM Kil 114.95 

HO Board Kit 44.50 

Extender 8oard w.'connector 12.50 

•6K EPROM boarc kit w,o PROMS 74.50 
North Star Floppy Disk Kit $665 00 

Additional Drive Kit *-- 

SPECIAL PRODUCTS 
MW5865 Stopwatch Timet 9.00 
PC board 7.50 

Switches Mom Pushbutton 27 
3 pos. slide 25 

Encoder H00165-5 6.95 

3 Digit Universal 
Counter Board Kit 
Operates 5 18 Volt DC » 5 MHz 
typ 125' LEO display 10.50 
Voice actuated switch .50 
Paralronlcs 100A Logic 
Analyzer Kil $224.00 


415.00 


1.02 416 


9.95 
3.50 
10.00 
16 00 


Model 10 Trigger 
Expander Kit 
Model 150 Bus 
Grabber Kil 
Sinclair 3W Digit 


S229.00 
S369 00 


.75 


CLOCKS 
MM5309 
_ MM5311 

l] MM53I7 
5’ MMS313 
36 MMS314 
79 MMS315 
MM5316 
ll MMS318 
02 MM536S 
Of MM5841 
7' MM5865 

63 CT700I 
63 CT7002 

§7 CT7010 

36 CT7015 

36 MM5375AAN 
13 MM5375AB/N 
« 7205 

7’ 7207 

JO 7208 
In 7209 


3.00 


CONNECTORS 

44 pin edge 2.75 
100 pm edge 4.50 
100 pm edge WW 5.25 


KEYBOARD ENCODERS 

480 AY5-2376 - 

3.60 AY5-36O0 

3.90 74C922 

4 00 74C923 

“ H00165-5 


Clock Calendar Kil $23.95 

TRANSFORMERS 

6V 300 ma 3.2S 

12 Volt 300 ma transformer 1.25 

12.6V CT 600 ma 3 75 

utna 12V 250 ma wall plug 2.95 

SO so 12V CT 250 na wall plug 3.50 

13 50 ?4V CT 400 ma 


12 95 


360 


7.25 
3 90 
490 


comp, w/spec./sock. 


.21 


MICROPROCESSOR 

6800 1750 

6802 24 95 

8060A with data 8 95 
8085 - 


TRANSISTORS 

feX 2N1893 
2N2222A 
'?-5 2N2369 

2N2904A 
H? 2N2907A 
2N30S3 
2N3S38 
2N3643 
2N3904 
2N3906 
2N3055 


10V 1.2 amp wail plug 
5 50 12V 6 amp 
6.95 DISPLAY LEDS 

MAN1 CA .270 2.90 

MAN3 CC 125 .39 

MAN72/74 CA/CA .300 1 00 

DL704 CC .300 1.25 

D1707.DL707R CA 300 1 00 

DL727/728 CA/CC .500 1.90 

0L747/750 CA/CC 600 1.95 

01750 CC .600 1.95 

FND359 CC .357 70 

FND500/507 CC/CA 500 1.35 

FN0503/510 CC/CA 500 90 

FND800/807 CC/CA .800 2.20 

3 digit Bubble 


5.50 


Z80A 
8212 
8214 
.25 8216 

“ 8224 


1.02 

.94 


2.90 2N4402 

8 00 TIP31 
290 TIP33A 
290 


1 00 


8255 

8257 

8259 

1802CP plas 
18020P pias 
1061P 
COPI0O2CO 


_ 0 Connectors RS232 

8 50 25 Pin SubminiMures _ 

‘ • DB25P 2.95 8000 

0B25S 3.95 9400 

Cover 1.50 1O0 00 

RS232 Complete Set 6.50 12000 

DE9P 1 50 35000 

17 95 DE9S 1 95 55000 

1150 DA15P 2.10 82000 

19.95 OA15S 3.10 60000 


1000 
925 
19 50 
19 50 
1395 


0G8 Fluorescent 
0G10 Fluorescent 
5 digit 14 pin display 
NSN69 9 dig4 display 
7520 Clairex photocells 
TIL311 Hex 

COMPUTER GRADE CAPS 

1600 mid 200V 

2000 mid 45V 

3200 50V 

5500 

sen 
6100 
6100 
7700 


25V 


.83 
1 75 


250 

3.00 

3.0C 


55V 

65V 


3.50 
500 
500 
6 00 
6.00 


Multi-volt Computer Power Supply 

8v 5 amp, ±18v .5 amp, 5v 1.5 amp, -5v 
.5 amp, 12v .5 amp, -12 option. ±5v, ±12v 
are regulated. Kit $29.95. Kit with punched frame 
$34.95. Woodgrain case $10.00. 


Video Modulator Kit $8.95 

Convert your TV set into a high quality monitor 
without affecting normal usage. Complete kit 
with full instructions. 


2.5 MHz Frequency Counter Kit 

Complete kit less case $37.50 

30 MHz Frequency Counter Kit 

Complete kit less case $47.75 

Prescaler kit to 350 MHz $19.95 


79 1C Update Master Manual $35°o 

Complete 1C data selector, 2500 pg. master ref¬ 
erence guide. Over 50,000 cross references. Free 
update service through 1979. Domestic postage 
$3.50. Foreign $5.00. 1978 1C Master closeout 
$19.50. 


I Stopwatch Kit 

S26.95 1 

1 Full six digit battery operated. 

2-5 volts. 1 

■ 3.2768 MHz crystal accuracy. Times to 59 1 

1 min., 59 sec., 99 1/100 sec. Times std., split 1 
1 and Taylor. 7205 chip, all components minus 1 

| case. Full instructions. 

l 

1 Hickok 3Vz Digit LCD Multimeter 

1 Batt/AC oper. O.Imv-IOOOv. 5 ranges. Q.5% 1 
1 accur. Resistance 6 low power ranges 0.1 1 
1 ohm-20M ohm. DC curr. .01 to lOOma. Hand 1 
1 held, W LCD displays, auto zero, polarity, over- 1 

range. $74.95. 


S-100 Computer Boards 


8K Static RAM Kit Godbout 

$135.00 

16K Static RAM Kit 

265.00 

24K Static RAM Kit 

423.00 

32K Dynamic RAM Kit 

310.00 

64K Dynamic RAM Kit 

470.00 

8K/16K Eprom Kit (less PROMS) 

$89.00 

Video Interface Kit 

$139.00 

;| Motherboard $39. Extender Board $8.99 Ml 


FREE: Send for your copy of our NEW 1979 
QUEST CATALOG. Include 28<z stamp. 
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A Comparison of Techniques 


By Jefferson H. Harman 

Director of Research and Development 
PerSci, Inc. 


INTRODUCTION 

In the continuing search for more data storage for less 
money, the computer system designer is making use of dou¬ 
ble density codes on floppy disks. The use of these codes, 
which alter the way “ones and zeros” are electronically 
recorded on the media, doubles the capacity of the floppy 
disk, almost for free. There are catches, however. All double 
density encoding methods are more susceptible to noise and 
density effects than the single density codes. Therefore, the 
design engineer should have a complete understanding of 
techniques before embarking on a double density program. 

MECHANIZATION OF RECORDING 

In order to understand why simply changing the code can 
double system capacity, the reader should know something 
of what happens in saturated magnetic recording. The read- 
write head of a recording device consists of a coil on a ferro¬ 
magnetic core. This core has a gap of non-magnetic material 
which is brought into contact with the media. (Or very near 
the media in flying head hard disks.) Current in the coil mag¬ 
netizes the media as it passes under the gap. 

The coil responds to a change in the magnetic flux of the 
media. This is accomplished by moving the media. In addi¬ 
tion to motion, a change in the magnetic field from the disk 
is required to produce an output. In other words, the read 
head can only detect where transitions in polarity occur. 
Therefore, the information must be encoded in the location 
of these transitions, and the read system must operate by 
locating these transitions. This is done by detecting the peaks 
of the read signal. 
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SELF CLOCKING CODES 

The simplest code is to write a transition for each one, and 
no transition for each zero. This is NRZ. This code is very ef¬ 
ficient, having only one bit per transition. Unfortunately, 
NRZ does not contain a clock, which is necessary in order to 
know the time in relation to the code. If a code is serial (such 
as in floppy disks), the data rate has small changes due to 
speed variations. Unless a clock is provided, it can’t be deter¬ 
mined how many successive zeros have occurred between 
ones. In systems where several tracks are read in parallel, 
schemes guaranteeing at least one transition on one of the 
tracks (usually also checking parity) cambe used to clock the 
code — as in seven or nine track tape drives. This code is not 
used in floppy disks because only one track at a time is read. 

Double frequency code, also known as FM, frequency 
doubling, and other aliases, consists of adding a clock to 
NRZ such that the data transitions are ideally centered be¬ 
tween clocks. This code is self clocking, is easy to encode 
and decode, but requires two transitions per bit. It is the most 
widely used single density code for floppy disks. 

DENSITY EFFECTS 

If one could write magnetic flux reversals as close together 
as needed, then requiring two transitions per bit would be no 
disadvantage. However, life isn’t that simple. As transitions 
are packed closer together on the media, density effects 
begin to shift the location of the transitions. This shift inter¬ 
feres with the ability to distinguish clock from data, and is the 
limiting factor on capacity. Of course, single density floppy 
disks are operated at the practical maximum for FM recording. 
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TRS-80 

2 DISK SYSTEM 
Payroll 125 Employees 
Accts. Pay. 225 Vendors 
Accts. Rec. 225 Customers 
Gen. Ledger 200 Accounts 
Job Cost 25-45 Jobs 
3 Disk Double Quantities 
Utility Billing 
TRS-80 
S240.00 each 


IBM 5110 

INDEXED FILES 
Farm Payroll 
Gen. Payroll 
Fruit Packer Payroll 
Accounts Payable 
CPA Gen. Ledger 
Accounts Receivable 
Job Costing 
Utility Billing 

IBM-5110 
$520.00 each 


ALTOS $410 each 

IMMEDIA TE DELIVER Y 
ALL SYSTEMS LICENSED 


For sample reports send $6.00 to cover postage & handling. 
First time user cookbook documentation. 

Money Order, VISA, Master Charge only, Please. 


COMPUTER SYSTEMS 
DESIGN, INC. 

P.O. Box 735 
Yakima, Wa. 98907 
Call 1-509-575-0320 
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Follow the 
RAINBOW 
to the finest 
software 
this side of OZ! 


MUSIC KALEIDOSCOPE $10 (Dazzling colors dance to your music.) 

APPLE ‘2V $9.95 (High resolution graphics you won’t believe! Needs 24k.) 
SCREEN MACHINE $15.95 (Define your own apple character sets. 
Needs 24k.) 

RAINBOW CASINO $35* (Practice for Las Vegas. 9 gambling games.) 
RAINBOW’S P0T-0F-G0LD $49* (A buck a program! 49 fun 
BASIC games.) 

PHASOR ZAP! $15 (Top-notch outer space shoot-em-up!) 

3-D DOCKING $15 (Dodge the meteorites in 3-D.) 

ANCIENT TAROT $9.95* (Readings from this ancient fortune-telling game.) 
FORTE $19.95 (Interpretive language for music synthesis.) 


OTHER FAVORITES 


Inventory Control.... 

..$35* 

Apple Checkbook. 

.$20* 

Morse Code Trainer .. 

..$10* 

Speed Reading trainer . 

.$40* 

Galactic Battle. 

. $10 

Devil’s Dungeon. 

.$10* 

Appletalker. 

..$15 

Apple Lis’ner. 

.$20 

Talking Calculator ... 

..$15 

Tic-Tac-Talker. 

.$15 

Electronic card file .. 

..$20** 

Microchess 2.0 . 

$20 

Space Maze. 

..$12.95 



* available on disk for an additional $5. * 

•requires disk 



PLEASE ADO $1.25 FOR SHIPPING AND HANDLING. 

Calif, residents add 6% sales tax. NO C.O.D.'s PLEASE SEND TO: 


Rainbow Computing, Inc. 

10723 White Oak Avenue Dept. IA 
Granada Hills, California 91344 
Telephone (213) 360-2171 


Since the floppy disk is a disk, the density changes from 
inner to outer tracks. Density is highest at track 76 with 
6400 transitions per inch and lowest at track 00, with 3600 
transitions per inch. At high density the output level is lowest, 
and peak shift greatest. At low density the output stays near 
zero for relatively long periods, producing inflection points 
that, with the addition of noise, could erroneously be 
detected as peaks. 




Peak shift has two causes. The first is density effects which 
cause peaks to shift apart. Pulses which are close tend to 
move away from each other when bounded by pulses which 
are not so close. In FM or MFM, this effect can be as great as 
300 ns. Density effects can be reduced be precompensation, 
a purposeful distortion of the pulse pattern to compensate for 
the peak shifts known to occur. The second cause of peak 
shift is asymmetry, which is due to poor write circuits, poor 
read circuits, or poor head design. Read and write circuits 
can be made essentially symmetrical by careful design and 
selection of components, but heads can be expected to pro¬ 
duce ±100 ns of asymmetry. 

In order for a code to be more efficient, it must reduce the 
transition rate required to transmit data from two transitions 
per bit to anything less than two transitions, while at the same 
time providing clock information. Three codes: MFM, 
M 2 FM, and 4 for 5 GCR have been successfully used to 
double the capacity of floppy disk drives. This has been done 
at little hardware cost and with good reliability, However, 
systems using double density codes are more susceptible to 
problems from system noise, dirty heads, worn diskettes, and 
speed variations than FM systems. 
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MODIFIED FREQUENCY MODULATION (MFM) 

MFM is the oldest of these codes. MFM adds a clock to NRZ, 
much like in FM. However, the clocks are only added between 
successive zeros. Since the highest frequency in FM occurs 
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when clocks are inserted between successive ones, The maxi¬ 
mum transition rate is half that of FM for the same data rate. 
The minimum frequency in MFM would be half the frequen¬ 
cy for FM at the same data rate. Therefore, doubling the data 
rate would not increase the transition rate over FM. 

Although MFM data at 500 KHz requires no higher transi¬ 
tion rate than FM at 250 KHz, the time window for determin¬ 
ing if a transition is clock or data is half that of FM. The prac¬ 
tical window is the theoretical window minus the peak shift 
effects and speed variation. The theoretical window for MFM 
at 500 KHz is 1 fAS peak to peak. Peak shift can be 600 ns 
peak to peak due to pulse crowding, plus 200 peak to peak 
due to asymmetry. This leaves 200 ns. Speed variation can 
take another 50 ns, another 50 ns for the ability of the phase 
locked loop to track the data, another 10 ns for variations in 
logic delays, another 40 ns for noise; and the window has 
gone to zero for MFM — although FM at half the data rate 
still has 1 fus to spare. 

Practical MFM systems use some form of write precom¬ 
pensation to reduce the effect of peak shift. Practical margins 
of ± 100 ns are obtained in this manner. Error rates far less 
than 1 soft read error in 10 9 bits have been demonstrated. 

MFM recording, in fact all of the double density codes to 
be considered, must be synchronized with a phased locked 
loop. This is because some of the clock pulses are missing. 
FM, of course, can be synchronized with a one shot. How¬ 
ever, even with FM a phased lock loop gives demonstrably 
better data reliability. 


MODIFIED MODIFIED FREQUENCY 
MODULATION <M 2 FM) 


In order to improve the margins of MFM it was modified; 
hence M 2 FM. The modification was to add clock pulses be¬ 
tween successive zeros only if a clock was not inserted be¬ 
tween the previous successive zeros. In this manner a clock 
pulse is never crowded. However, the longest time between 
pulses has increased to 5 us for a 500 KHz data rate. 

Since the clock pulses are not crowded, peak shift on clock 
pulses will be less than on data pulses. The decoding window 
can be widened for data and narrowed for clock. This will in¬ 
crease the margin by the amount the window is skewed. Use 
of write precompensation distorts this. With the write pre¬ 
compensation used at PerSci, it was found that M 2 FM worked 
best with a symmetrical window and worked as well but no 
better than MFM. The longer time between pulses would ap¬ 
pear to make M 2 FM more susceptible to noise at outside 
tracks, but this has not been a practical problem. 


Precompensatlon 

Required 

300 nsec to right 
300 nsec to right 
100 nsec to right 
300 nsec to left 
300 nsec to left 
100 nsec to left 


Encoded HFH/M 2 FM 
Bit being Compensated 
0 0 0 1 0 1 0 
0 0 0 1 0 0 1 
10 0 10 10 
0 10 10 0 0 
1 0 0 1 0 0 0 
0 10 10 0 1 


WRITE PRECOMPENSATION 
MFM or M 2 PM 


Figure 3. 


GROUP CODED RECORDING (GCR) 

The third method of doubling diskette capacity through a 
code is 4 for 5 GCR. This approaches the problem from an 
entirely different perspective. 

If five bits of code are used to encode four bits of data, then 
those patterns containing long strings of successive zeros 
may be eliminated. Practical codes having no more than two 
successive zeros are in use on floppy disk drives and on tape. 
The code bits occur at 1.25 times the data rate, hence this is 
a 1.25 transition per bit code instead of a one transition per 
bit code. 



With Purchase of 12 
10 Minute Cassettes* 
Hoids 12 Casettes on revolving 
stand. only $9.00 

• 10 minute cassettes 

• High Quality 

• Calendared High Out 
put Tape 

Quanity 10-49 .... 75<teach 
50-149 . . . 654 each 
150-up .... 6 O 4 each 


Program Library 
on Cassette 


APPLE Clinic 

Beat the House Outwit II 

Clinic The Market (Level 

Outwit I & II) 

Confrontation Blockade 

Outwit II Adventure 

The Market Oil Tycoon 

Blockade SORCERER 

Adventure Beat the House 

Oil Tycoon Clinic 

Pilot Outwit 

S.W.T.P.C. The Market 

Beat the House Blocade 

Clinic Outwit II 

SOL Adventure 

Beat the House PET 
Clinic Beat the House 

Outwit Clinic 

TRS-80 (Level II The Market 

Basic) Blocade 

Beat the House Outwit II 


Send (or Free Catalog and detailed info on 
each Library. 




Send $1 for sample (Ppd) 
* Limit 5 per customer 


Scotch DISKETTES 

740-0 8" Soft Sector, one tide, 10 for $41.00 

740/2-0 8" Soft Sector, two side. 10 for $63.00 

740- 32 8" Hard Sector,one side, lOfor $4S.OO 

740/2-32 8" Hard Sector, two side, 10 for $66.00 

741- 0 8" Soft Sector, double density l0for$S3.00 

741-32 8" Hard Sector,double density lOfor $56.00 

744-0 S%" Soft Sector, one side 10for$41.00 

744-10 5K" 10 Hole, one side 10 for $43.00 

744-16 5K" 16 Hole, one side lOfor $45.00 

740 Diskettes for IBM 3740compatible drives 

741 Diskettes for Shugart 800 and 801 compatible drives 
744 Diskettes for Shugart SA400 compatible drives 


only $14.95 ea 
6 or more $12.95 ea 

Postage Prepaid on all Programs 


ORDERING INFORMATION 

• Orders under $50 and COD’S 
add $ 2 . 

• All others, shipped Ppd in U.S. 
via UPS. 

• For Blue Label (air) or 1st class, 
add $ 1 . 

• We accept VisaorMasterCharge 

• Most orders shipped same day. 

• Calif. Res. add 6 % sales tax. 


DEALER INQUIRES INVITED 

Ssftiurfj Elesirnniss 

447 Associated Road • P.O. Box 429 • Brea, Calif. 92621 
(714) 990-3051 


CIRCLE INQUIRY NO. 62 


NO FRILLS! NO GIMMICKS! JUST GREAT 

DISCOUNTS 

MAIL ORDER ONLY 


HAZELTINE 

1400 .$ 650.00 

1500 . 995.00 

Mod 1 . 1495.00 

CENTRONICS 

779-1 . 954.00 

779-2 1051.00 

700-2 1350.00 

761 KSR tractor. 1595.00 

703 tractor. 2195.00 

NORTHSTAR 

Horizon I assembled.. 1629.00 

kit. 1339.00 

Horizon II assembled.. 1999.00 

kit. 1599.00 

Disk System. 589.00 

TELETYPE 

Mod 43 . 995.00 

IMS 

16K Static Memory... 459.95 


DIGITAL SYSTEMS 

Computer.$4345.00 

Double Density 

Dual Drive. 2433.00 

IMSAI 

VDP 80/1000 .$5895.00 

VDP40 . 3795.00 

VDP42 . 3895.00 

VDP44 . 4195.00 

16K Memory assem... 399.00 

PCS 80/15 . 679.00 


15% ofl on all other Imsai products 

CROMEMCO 

System 111 $1000 off . 4990.00 

10% off on all other Cromemco products 

TEXAS INSTRUMENTS 

810 Printer. 1595.00 

CENTRONICS 

Microprinter 495.00 


Most items in stock for immediate delivery. Factory-fresh, sealed cartons. 

DATA DISCOUNT CENTER p.o.boxioo 

135-53 Northern Blvd., Flushing, New York 11354, 212/465-6609 

N.Y.S. residents add appropriate Sales Tax. Shipping FOB N.Y. 
BankAmericard, Master Charge add 3%. COD orders require 25% deposit. 
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FREE « FREE » FREE « FREE » FREE • FREE » FREES 


DIGI-KEY p o. Bo. 677 i 

CORPORATION ’tP ' 1 

| 

1-800-346-5144 ^ -L 

rncc MN . AK . HI. 216-401-6674 

(k sk* 

UCTS • PREPAID SHIPPING AND INSURANCE' • TOLL FREE WATS • VOLUME DISCOUNTS 


New! 


New 


ELECTRONIC HARDWARE KIT 

FANTASTIC S-S ^ QC “irUUV" 

low Mia I H. 3 J w wit. i 




PANASONIC DISC CAPACITORS 

Digi'Kfy mlroouces 23 ol The most popular <*sc 
cap values - succr quai.ty super prices 
(See page 20 foi details i 


New 


! CSS} MODULAR SOLDERING TOOLS 


.jps. Orgi'Key otters the U«gar Pnocess and Imperial 
line as we* as popular priced kits and accessories 
(See page 12 lor details I 


KlgW 1 - THE 'PROGRAMMABLE" CLOCK MODULE 
0.7" HIGH DIGITS 
RED LED 
DISPLAY 



•User Programmable For Either 
12 oc 24 Hour Mode 
Fixed or Flashing Colon 50/60 HZ 
•Adaptable For Continuous Timekeeping 
During Power Failures 

•Oilers Continuous Two-level Or Automatic 
Display Brightness Conlrol Capability 


HOW TO ORDER INFORMATION ..SEE PAGE 22 


VOLUME OtSCOUNT 


MET v ~ . ** 


HANDLING CHARGES 


Add SO SC 
Add $0 25 
No Chg 
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Quality Electronic Components • Super Prices 

TO RECEIVE YOUR FREE DIGI-KEY CATALOG CIRCLE OUR INQUIRY 
NUMBER ON THE READERS SERVICE CARD OR WRITE: 

Digi-Key Coporation, Hwy. 32 South, Thief River Falls, MN 56701 

FREE • FREE • FREE • FREE * FREE • FREE • FR 
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B9TE5 - 

* Microcomputer Service 

* Specialized Hardware Integration 

* Hardware and Software Designs 

* Software Development Systems to your 

Specifications 

* Business System Hardware for Resale 

* Major Manufacturers (IMSAI Industrial 

Microsystems, North Star, PerSci, Soroc 
Tarbell, Xitan, Vector Graphic) 

Equipment Stocked 

BITS N BYTES 
College Business Park 
679 “D” S. State College Blvd. 
Fullerton, Calif. 92631 
(714) 879-8386 
NEW HOURS! 

11 A.M. - 6 P.M. M-F 
12-5 P.M. Sat. 

Our Representative In San Diego! Jim Farthing 
( 714 ) 421-1041 
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Figure 4. 



The minimum time between transitions in GCR is 1.6 /is, 
the maximum is 4.8 fus. GCR code is not quite as bad as 
M 2 FM for shouldering effects at track 00. Peak shift due to 
pulse crowding is worse than MFM or M 2 FM since pulses 
only 1.6 fus apart are bounded by pulses 4.8 ^s apart. How¬ 
ever, the ideal window is 1.6 /^s wide, so GCR is much more 
tolerant of peak shift. Practical windows of 400 ns have been 
achieved without write precompensation. With write precom¬ 
pensation this improves to 600 ns. 

WRITE PRECOMPENSATION 

Write precompensation consists of examining data to be writ¬ 
ten and shifting the transition in time in a direction to compen¬ 
sate for expected peak shift. The precompensation may be 
made as elaborate as the controller designer desires. The 
more accurate the compensation the better the timing margins. 

PerSci recommends compensating six patterns of encod¬ 
ed MFM or M 2 FM. Four of the patterns require 300 ns of 
compensation, and two of the patterns require 100 ns. 

Encoding GCR simply requires grouping data into 4-bit 
“nibbles” and via a ROM, matrix, or whatever, translating it 
into corresponding 5-bit code groups. Decoding consists of 
translating the code groups into corresponding data nibbles. 
A code group, usually all ones, is reserved for synchronization. 

SUMMARY 

Double density recording can be reliably accomplished with 
all of these techniques. The final choice of which is to be used 
in a system is usually decided by such factors as desirability 
of interchange with a company which is using one of the 
methods already; IBM compatibility; availability of an off the 
shelf controller; availability of LSI controller chips; or such 
factors as management prejudice and customer preference. 

And, while all of the double density techniques work, the 
reader should remember that drives and diskettes must be 
maintained cleaner and in better condition than with FM, that 
most tolerant of codes.□ 
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U.S. Patent 3,560,947 Method and Apparatus for Commu¬ 
nication and Storage of Binary Information — R.C. Franchini 

Proposed American National Standard Recorded Magnetic 
Tape for Information Interchange (6250 CPI, Group 
Coded Recording) 
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ALL THE MOST WANTED FEATURES 
IN A COMPACT DVOM 




L X 3 0 3 


S«m!DD 


On-the-Spot accuracy, 
wherever and when¬ 
ever you need it. The 
Hickok LX303 is ideal 
for any field service, 
%. industrial mainte¬ 
nance or personal 
application. Rug¬ 
ged, Reliable. Easy 
to read in any light, 
this exciting, new, 
, 3V2 digit Mini-Multi¬ 
meter weighs only 
12 ounces and car¬ 
ries a full one year 
guarantee. Fea¬ 
tures previously 
found only in ex¬ 
pensive units . . . 
at a price under 
$75.00! Another 
American made 
test equipment 
breakthrough from 
Hickok, The Value 
Innovator for over 60 
years. Order Today! 


BIG Vt" HIGH LCD DISPLAY 
USE INDOORS OR OUT 
200 HOUR 9V BATTERY LIFE 

AUTO ZERO, POLARITY, 
OVERRANGE INDICATION 

100 mV DC F.S. SENSITIVITY 

19 RANGES AND FUNCTIONS 


THE HICKOK ELECTRICAL INSTRUMENT CO. 
10514 Dupont Avenue • Cleveland. Ohio 44108 
(216) 541-8060 • TWX 810-421-8286 


ckok distributor or order below 


800/421-5809 Continental U.8. > 
rs . o _i ^ 800/262-1710 Intld* California I 

Computer Products 

4901 W ROSECRANS AVENUE ,_ 

Department "B" 3 Aft 

PLEASE SEND ME HAWTHORNE. CALIFORNIA 90250 

_Hickok LX303 Digital Multimeters .@ 74.95 ea. I 

_RC-3 AC Adapter, 115VAC (220VAC avail.) .@ 7.50 ea. 

_CC-3 Deluxe Carrying Case .@ 7.50 ea. 

_VP-10 X10 DCV Probe Adapter .@ 14.95 ea. ■ 

_CS-1 10A DC Current Shunt .@ 14.95 ea. 

_VP-40 40 KV DC Probe .@ 35.00 ea. 

□ Bill my company, P. 0. attached (0 & B rated firms only) net 30 days 
I □ Payment enclosed Bill my: □ Master Charge (JVISA 

Account No_Exp. Date_ . 

■ Name_Signature_ I 

| Address_ | 

I City-State-Zip_ 

j^JVdd $3.00 Postage and Handling. CALIFORNIA RESIDENTS ADD 6% SALES TAX 


Removable cover stores test 
set furnished as part of the ui 


Available accessories include AC 
adapter, padded vinyl carrying case. 
40KV DC probe. 10 Amp DC shunt. 


XIODCVpfl 
for protecting h 


SPECIFICATIONS: 

DC VOLTS (5 RANGES): 0.1 mV to 1000V; Accuracy 
±0.5% rdg ±0.5% f.s.; Input imped: 10M Q; Max. 
input IkV except 500V on 200mV range. 

AC VOLTS (40Hz to 5kHz): 0.1 V to 600V; Accuracy: 
±1.0% rdg ±0.5% f.s. (—2dB max. at 5kHz); Max. 
input: 600V. 

RESISTANCE (6 LOW POWER RANGES): 0.1 nto 

20MO; Accuracy: ±0.5% rdg ±0.5% f.s. (± 1.5% rdg 
on 20Mn range); input protected to 120VAC all 
ranges 

DC CURRENT (6 RANGES):.01 nA to 100mA; 
Accuracy: ±1.0% rdg ±0.5% f.s. 

DIMENSIONS AND WEIGHT: 5-7/8" x 3-3/8" x 
1-3/4", 12 oz.; POWER: 9V batt. (not incl.) or Hickok 
AC adapter; READ RATE: 3/sec. OPERATING 
TEMPERATURE: 0°-50°C. 


174.95 

HICKOK 


















































Computer Products 
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★ DISK DRIVES if 

B51 5V $295.00 

by Micro Peripherals, Inc. Operates 
in eithei single density (125KB, 
unformatted) or double density 
(250KB, unformatted) modes, up 
to 40 tracks, with a track-to-track 
access time of only 5 ms. 

SA801R $495.00 

by Shugart Single-sided 8” floppy 
disk drive. 

FD8-100 $395.00 

GSI/Siem«ns. Runs cooler and 
quieter than 801 (8") 

SA400 $325.00 

Single density 5V«, 35-Trsck drive. 
Cabinet and power supply available 


1791 BOI 

Dual Density Controller Chip 

$49.95 


Vista V8Q 
Mini Disk 
System tor 
TRS-80 


$395.00 


• TWO SIEMENS GSI 8 FLOPPY 

ORIVES 

• POWER SUPPLY FOR ABOVE 

e JAOE TARBELL OlSK CONTROL 
KIT IS100I 

• CP M OPERATING SYSTEM WITH 

BASIC E 

• PACKAGE OF 10 BLANK 

8 OISKETTES 

Price if purchased separately 

$1192.50 

JAOE SPECIAL PACKAGE OEAL 

$1050.00 



Includes disk drive, power supply, 
regulator board, compact case, and 
cabel. The V-80 offer 23% more storage 
capacity. Simply take it out of the box 
and It’s ready to go! Requires 16K. 
Level II, EX. R. 


3-LEVEL GOLD 
WIRE WRAP SOCKETS 

14 PIN 39* each 

16 PIN 43* each 

100 for $35 

Sockets ate end and side stack 
able, closed eniry. 


EXPANDOR’S BLACK BOX PRINTER 

This 64-character ASCII impact printer 
with 80-column capability is portable 
and uses standard 872” paper and reg¬ 
ular typewriter ribbon. Base, cover 
and parallel interface are included. 

Assembled and complete with manual 
and documentation. , nn 

only $470.00 

(90 day manufacturer’s warranty) 


TRS-80 Interface Cable for Black Box Printer 

with mating Connectors: $48.00 
(must bo used with cxpans'on modulo, *8v 1 
amp power supply required.) 


Power Supply for TRS-80/Black Box Printer $49.00 




TRENDCOM lOO 

Intelligent Printer 



Interface & Cable 
for TRS-80 
$45. 00 

40 character per second rate 
Low cost thermal paper 
96 character set 
Microprocessor controlled 
• Bidirectional look-ahead printing 

• Quiet operation • No external power supplies • Only two 
driven parts • High reliability • Clear 5x7 characters 

• Attractive metal and plastic case 2 rolls of paper for $5.00 


Interface & Cable 
for Apple 
$60. 00 


S-100 MOTHER BOARDS 

JAOE 6 SLOT 

K.t $41.95 

Assembled & Tested $56.95 
Bare Board $24.95 

9-SLOT LITTLE MOTHER' 

K.t $85.00 

Assembled & Tested $99.00 
Bare Board $35.00 

13-SLOT QUIET MOTHER' 
K.t $95.00 

Assm. & Tested $110.00 
Bare Board $40.00 

22-SLOT 'STREAKER'' 

Assm & Tested $149.00 


VIDEO INTERFACE 

S-100 Compatible Serial Inter¬ 
face with Sockets Included. 

Kit $117.95 

Assembled & Tested $159.95 
Bare Board w/manual $ 35.00 


Z80A SPECIAL 

4MHz CPU Chip 

$14.95 if 


TU-l 

Convert your T.V. set into a 
Video Monitor 

Kit $8.95 


parallel/serial 

INTERFACE 

S 100 compatible 2 serial I/O 
ports, 1 parallel I/O. 

Kit JG-P/S $124.95 

Assembled & Tested. 

JG-P/SA $179.95 

Bare Board w/Manual $ 30.00 


MAINFRAMES 



Accomodates all S—100 
Mother Boards. Built-In card 
cage with card guides. Lighted 
reset switch. Rotron whisper fan. 

Includes heavy duty power 
supply. (+ 8 volts DC @ 30 AMPS, 
+ 16 volts DC @4 AMPS, -8 volts 
DC may be added. 


$389.00 


3M 

V or VERBATIM 
FLOPPY DISKS 

5V4 in. Minidiskettes 
Soft sector, 10 sector, or 16 sector 
$4.40 each or 
box of 1 0 for $40.00 
8 in. Standard Floppy Disks 
Soft Sector 

$4.75 each—10 for $42.50 


FLOPPY DISK INTERFACE 

JADE FLOPPY DISK (Tarbell 
board) 

Kit $195.00 

Assembled & Tested $250.00 


S.D. Computer Products 

VERSA-FLOPPY 

Kit $159.95 

Assembled & Tested $239.00 


integral Data Systems 


Check the impressive 
features on Integral’s 
IP-125 Impact Printer 


only 


$799 



LOADED WITH EXTRAS AT NO EXTRA COST 


• Microprocessor controller • Semi RS232C. interlace • Parallel 11 l tevei interlace ■ run 
upper and lower case ASCii character set (90 characters) ■ Fun 8 men wide oaper ■ Line 
length ot 80 columns at 10 characters per inch ■ Impact pnntmq • /*/ dot main* • Ordinary 
paper roll, <an«oid. or sheet • Serial baud rate to 1200 bits pe> second • Multiple line butter 
ol 256 characters • instamaneous ormt rate to 100 characters per second • Multiple copies 
without adiustment • Reinkinq ribbon mechanism • F font panel operator controls • Attractive 
table top console 


IP-225 Integral Data System IP-225 Tractor Feed Printer 

• All standard features of IP-125 
•Tractor feed paper drive 

• Forms Control Option (P1250) $949 

IP-125 Integral Data System IP-125 Friction Feed Printer 

•96 upper & lower case ASCII character set 

• Enhanced character control 

• Serial RS232C Interface (std. factory wiring) 

• Parallel TTL Interface (factory wired on req.) 

• 80 column line 

• 256 byte multiline buffer $799 




3690-12 

CARD EXTENDER 

Card tiwndir hat 100 contact* SO par t>da 
On 125 centtrt Attachad conrvactor it com 
paubte with S 100 But System* $25 00 
ymo B.8” 22/4 pm. IBB ctr* 

Em tan Bi n .S12.00 


Gan Purpose D.I.P. Boards 
with But Pattern for Solder or 
Wire Wrap Epoxy Glatt 1/16" 
44 pin con tpacad 156 


pefflt Plugboards 

8800V 

Jmvertal Microcomputer/proceuor 
plugboard Ute with S-100 but Com 
piete with heat tmk & hardware 
S 3" k 10" x 1/16 

8801-1 

Same at 8800V except plain, lets 
power butet & heat tmh 




P pattern plugboards for ICs 
Epoxy Glatt 1/16" 44 pm con 
Spaced 156 


Mi Density 
board for 
Power & 

Glass 1/16 
156 





1 -4 

59 

10 24 




*77 5.1" x 4.5" . . 

. IK K 

IMOV 

11.15 

17.55 

15.M 

3642 5.5 x 4.5" . 

$7.65 

*12 9 6' >45 

*77 21.5" * 4.5" 

$1 74 

Mill 

1415 

13 45 

11.55 

*42215x45 

$1145 

*12 2 I S" x 4.5 


Dual m Lme Plug 
Wire Wrap with 
Grd But Epoxy 
44 pm con spaced 


$10.17 

$1 II 


128 INTERFACE ACE 


MAY 1979 

























































c 


PLACE ORDERS TOLL FREE: 


WO/421 -MOt Continent* U.«. 
•00/202-1710 kwtd* CaNfomia 


LEEDEX MONITOR 

• 12 Black and White 

• 12MHZ Bandwidth 

• Handsome Plastic Case 

$ 139. 00 


I u# putt inciurte' 

KiM ' MuOuli' munilo> 
slu*w) 

AM ROM bylfs 11 - .*' 1 
Manual *di' M/t Vnr 
mau Ha'ChMd't: 
P'uyid»WT>my Mdn u a 
Pioyianmiei'- RpIpih*h.c 
( aid KeyOodUJ Oiiptav 


i 

$179 

CASES - $29.95 



$245 


6502 — based single board 

computer with keyboard/dis¬ 
play, KIM-1 hardware compa¬ 
tible, complete documentation. 

SYM—1 CASE $39.95 


JADE’S 

DOUBLE DENSITY 
Controller Board 


NEW! 


KIT: 
Assmb. & 


$249.00 
Tstd: $299.00 


MICROPROCESSORS 

F8 $16 95 

Z80 (2MHz) $20 00 

Z80A (4MHz) $14 95 

CDP1802CD $17.95 

6502 $1195 

6800 $16.95 

6802 $25 00 

8008 1 $12.95 

8035 $2000 

8035 8 $2100 

8080A $10.00 

8085 $23.00 

TMS9900T L $49 95 

8080A SUPPORT DEVICES 

8212 $ 2.90 

8214 $ 4 65 

8216 $ 2.75 

8224 (2MH2) $ 4 30 

8224-4 (4MH/) $ 9.95 

8226 $ 2.75 

8228 $ 6.40 

8238 $ 6 40 

8243 $ 8.00 

8251 $ 7 50 

8253 $20 00 

8255 $ 6 45 

825 7 $20 00 

8259 $20 00 

8275 $75.00 

8279 $1850 

USRT 

S2350 $10.95 

UARTS 

AY5-1013A $ 5.25 

AV5-1014A $ 8.25 

TR1602B $ 5.25 

TMS6011 $ 5.95 

IM6403 $ 9.00 

BAUD RATE GENERATORS 

MC14411 $10.00 

14411 Crystal $4 95 

6800 PRODUCT 

6810P $ 4.00 

6820P $ 6.60 

682IP $ 6.60 

6828P $11.25 

6834P $16.95 

6850P $ 8.65 

6852P $11.00 

6860P $ 9 25 

6862P $12 00 

687 IP $28 75 

6875P $ 8 75 

6880P $ 2.50 

CHARACTER GENERATORS 

25 13 Upper (-12+5) $6.75 

2513 Lower (-12 + 5) $ 6 75 

2513 Upper (5 v75lt) $9.75 

2513 Lower (5 volt) $10.95 

MCM6571 up scan $10.95 

MCM6571 A down sen $10.95 

PROMS 

1702A $5.00 

2708 $ 9.95 

2716 (5 + 12) Tl $60.00 

2716 (5v) INTEL $60.00 

2758 (5v) $30.00 

DYNAMIC RAMS 

416D/4116 (200ns) $12.50 

2104/4096 $ 4.00 

2107B-4 $ 3.95 

TMS4027/4096 (300ns) $ 4 00 

STATIC RAMS 1-15 16-100 

21L02 (450ns) $ 1.50 $ 1.20 

21L02 (250ns) $1.75 $1.50 

2101-1 $ 2.95 $ 2.60 

21111 $ 3.25 $ 3.00 

2112 1 $2.95 * 2.65 

FLOPPY DISK CONTROLLERS 

1771B01 $39.95 

1791 *49 95 

KEYBOARD CHIPS 

AY5-2376 $13.75 

AY5-3600 $13.75 

MM5740 $18.00 


■Single or Double Density Recording 
■Full Size or Mini Floppy 
■CP/M Compatable in either density 
■Programmed Data Transfer, no DMA 
■Controls up to 8 drives 
■IBM format in either density 
■Software Selectable Density 

■ This controler utilizes the proven 
reliability of the IBM standard format 
as well as the lastest phase-locked- 
loop for data seperation. ■ All clocks 
are generated from an on-board 
cyrstal oscillator ■ Right precompen¬ 
sation is used to enhanced data 
recovery reliability in the double 
density mode ■ Density selection is 
enitirely transparent to the user ■ 
Single and double density diskettes 
can be mixed on the same system. 


JADE Z80 BOARD 

IMPROVED DC SION AND 
FEATURES 


• ON BOARD 2708 or ?71 f> F PROM 

• VERY RELIABLF AT A MHZ OR 
2 MHZ 

• POWER ON JUMP AND RFSF T 

• ON BOARD USART <8250 


3* RPP16 •TflS-80 * RPPL6 ‘TRS-80 * APPLE *Tfl! 

| Jade RUnorv 
% Exomsim ins for 
! Tis-M and nppw 

£ 

& Everything a peraon needs to 
| add 16K of memory. Chips 
3 come neatly packaged with 
f easy to follow directions. In j 
| minutes your machine is 


2MHz 

Kit 

Assembled & Tested 

4 MHz 

Kit 

Assembled A Tested 
Bare Board 


$13$.00 
$ 105.00 

$ 149.95 
$ 199.95 
$ 35.00 


ready for games and more 
^ advanced software. 

| $82.00 

5F v 

8 ’ig-sbi.^b.oe-sbi.^Tddb.oe-sm.^b. 


3 


with full documentation 


Kit 

Assembled A Tested 
Bare Board 


$1 00.00 
$ 149.95 
$ 30 00 


EPROM BOARD KITS 

JG8 16 (uses 27Q8 OI 2716} $69.95 


“IMSAr-TYFI CANO 
QUIDS SPECIAL: 

Regular Price 30d each 

SPECIAL: 10 for $1.00! 


ocHwell AIM-65: The Head-Start 
n Microcomputers 

KIM-l compatible machine with 
on-board printer and a real keyboard! 

t 375.00 w/IK RAM 
450.00 w/4K RAM 
4K assembler/editor in ROM: $ 80.00 

8K BASIC in ROM: $100.00 

Power supply: $ 59.95 

Case for AIM-65: $ 49.95 

Special Package Price: $599.00 

AIM-65 (4K), Power Supply, Case, and 8K BASIC ROM 


DYNABYTE 

Naked Terminal 


$350.00 


FEATURES & BENEFITS 

■ 80 character by 24 line format (Model 57) ■ 
Completely self contained terminal electronics, just 
add CCTV monitor and key board ■ No support 
software required ■ Switch selectable modes: Half 
Duplex, Full Duplex, Block mode ■ Block mode 
allows for editing before transmit ■ Keyboard 
interface provided ■ Fully assembled, socketed, 
tested, burned in, and guaranteed for a full year 
from dale of purchase ■ Video is switch selectable 
‘Black-on-White” or “Whlte-on-Black” 



'Piicea 

DYNAMIC RAM BOAROS 
EXPANDABLE TO 64K 
32K VERSION •KITS 

Uses 4115 (8Kx 1, 250ns) Dynamic 
RAM's, can be expanded in 8K 
increments up to 32K. 


8K 

1 6 K 


$159.00 

$199.00 


24K 

32K 


$249.00 

$299.00 


S-100 ED6E CONNECTORS 


Soideitaii $3.25 each 

10 for $35.00 

Wire Wrap $4 00 each 

1 0 tor $40.00 


TEXTOOLJ 
ZIP* ' 
DIP® II 
Sockets 

f 

i TuTiulining 


4115 SALE 
8 for $39.95 


64K VERSION • KITS 

Uses 4116 (16Kx 1, 200ns) Dynamic 
RAM's, can be expanded in 16K 
ncrements up to 64K: 


16K 

32K 


$249.00 

$369.00 


48K 

64K 


$469.00 

$569.00 


*ZERO 

INSERTION FORCE 

sockets 

PRICES 

16 pin Zip Dip II $5.50 

24 pin Zip Dip II $7.50 

40 pm Zip Dip II $10.25 


+ STATIC RAM + 
SPECIALS 


2114'$, low power (1024x4) 
1-15 


450ns 

300ns 

o o 
o o 

m ei 

6.95 1 

9.00 

1 550 1 

1 $.50 1 

TMS4044 

450ns 1 

300ns 

/MM5 

9.00 

257, low power 
7.50 16.50 
6.75 |6.00 

4200A (4Kxl, J 

M 

>00n$) 

1^0, 

16.00 

410D (4K x 1, 200 nsj 

19.25 17.00 



Computer Products 


4901 W ROSECRANS AVENUE 
Department “F" 3 

HAWTHORNE CALIFORNIA 90250 
U S A 


Telephone 
(213) 679-3313 

(800) 421-5809 Continental U S 
(800) 262-1710 inside California 


m laM 


Cash, checks, money orders, and credit cards accepted. Add 
freight charge of $2.50 for orders under 10 lbs. and $1.00 service 
charge for orders under $10.00. Add 6% sales tax on all parts 
delivered in California. Discounts available at OEM quantities. 

WRITE FOR OUR FREE CATALOG 

All prices subject to change without notice. 


STATIC RAM 
BOARDS 


JADE 8K 

Kits: 450ns $129.95 

250ns $149.75 

Assembled A Tested: 

450ns $139.75 

250ns $169.79 

Btlt Board:> »».00 


16K - U*u 2114’* (low pow.r) 
Assembled 8* Tested: 

RAM 16 (2S0n$) 6376.00 

RAM 169 (450ns) $3 2 $.00 


16K with i 

Assembled L Tested: 
RAM 65 (290ns) 
RAM 69S|460n${ 


32 K Startic 

Assembled L Tested 
290ns 
410m 
290ns Kit 


g 90.00 

>9i9f 


9799.00 

$ 7 * 1.00 

$ 079.00 
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DP EFFORT: 

Hard Disk System 


By Tom Fox, Systems Editor 


An indispensable book for 
all prospective users of 
small business computers. 

"Buying an SBC system 
without having read this 
book first would be a serious 
mistake." 

T.A., Clifton, N.J. 
From the contents: 

Modern SBC Systems • Basic 
Concepts • Equipment • Language 
Processors • Operating Systems • File Access 
Methods • Basic Business Applications • Cost/Benefit 
Analysis • Consider the Alternatives • Analysis of Appli¬ 
cation Requirements • Off-Shelf vs. Custom Programmed 
• Software First? • Evaluating the Software, Hardware 
and Vendor • Before Signing the Contract • Financial 
Terms • What Should Be in the Purchase Order • Accept¬ 
ance • Getting the Most From Your SBC • Parallel Run 
& Cut-Over • The 7 Commandments of Data Safety • 
The 31 Most Common Mistakes Made by Computer 
Buyers • 


Send $25.00 (check, VISA or Mastercharge) to: 

Essex Publishing Co., Dept. F 
285 Bloomfield Avenue 
Caldwell, N.J. 07006 


Credit card orders: Send card #, date exp. Add $2.00 for 
rush, air mail shipping. N.J. residents add 5% sales 
tax. For faster shipment on credit card orders, phone 
(201) 783-6940. 
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100 pa Price: 5087 - $2.60 Z80 CPU-$6.85 P10 or CTC - $4.96 16K Ram Mostek 250 NSEC-$5.73 


A major difficulty that has existed in the development of 
business data processing systems has been the inadequacy 
of mass storage systems. Businesses by their nature amass 
large amounts of information — data — that is used in the 
day-to-day operation. 

Unfortunately, even with double density recording tech¬ 
niques, not all the necessary data will physically fit on 
5.25-inch or 8-inch floppy disks. This necessitates having 
either multiple drives or frequently changing the media. 

There is, however, an alternative available to the systems 
designer to overcome this difficulty; hard disk technology. 

WHAT IS A HARD DISK? 

A hard disk, as the name implies, is a non-flexible storage 
medium. The actual media is usually composed of an alumi¬ 
num platter coated with ferric oxide (Figure 1). The aluminum 
platter is designed with speed and balance in mind, allowing 
extremely high rotation of the platter. The ferric oxide coating 
is the substrate upon which magnetic data is recorded. 


Z80 Programming Manual - 300 pages, detailed explanation each instruction $6.50 

F8-3870 Programming Manual - 300 pages on F8 programming $6.50 

Z80 Data Book - Hardward manuals on Z80 CPU, P10, CTC, SID, DMA plus application notes$3.50 
F80-3870 Data Book - Hardware manuals on F8 CPU, P10, DMI, SMI, PSU and 3870,3872,3876 plus 

applications notes $3.50 


FREE: WITH EVERY ORDER: 37 page pocket Z80 MICRO-REFERENCE MANUAL 

FREE: with every order for the 5087 telephone lone generator chip ; a telecommunications data book 
data sheets on tone generators, pulse dialers, repetory dialers, codec chip and applications 



! . 
0000-f^ 

| 0000 - 7 ^ 
I 0000-f^ 


- Speaker or Phone Line 


CLASS'A'KEYBOARD j- V ' 1 

Touch Tone Generator Chip $3.95 


16 pin OCTAL LATCH/250 ma Driver 

PIN and functionally compatible with 7«2S* and DM 


I/O Strobe - 
low order data but - 


Microprocessor ‘ 
Address 


E 

DATA IN 


— To LED's 

— Solonoid's 


One 16 pin dip integrates a high current drivers 
with an addressable 8-bit latch $2.40 


All components shipped immediately with full data sheet. Master Charge, Visa, or personal checks 
accepted. Include $1.75 for shipping and handling. (We pay sales tax.) Mail orders to: 

~ STARTER Electronics 
1100 Quail - Suite 200 
Newport Beach, CA 92660 
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YOU’VE READ THEM ALL¬ 
NOW GET THE BEST! 

The 80-US Journal 


A PUBLICATION FOR TRS-80 
USERS - COVERS ALL TRS-80 
CAPABILITY! 


BI-MONTHLY, SEND $16.00 CHECK OR 
MONEY ORDER FOR A 1 YEAR 
SUBSCRIPTION TO: 

80 US 

PO Box 7112 
TACOMA, WA. 98407 

MASTER CHARGE, VISA OK - (206) 759-9642 
WANT TO CHECK IT OUT FIRST? SEND $3.00 
for current sample copy. 

A SELECT CHOICE OF SOFTWARE IS AVAILABLE 







SHUGART • PERTEC • MPI DISK DRIVES W/2 
DRIVE CONNECTOR CABLE, POWER SUPPLY AND 
CABINET (DRIVE O EQUIV.) 


$399 


SHUGART • PERTEC • MPI DISK DRIVES W/POWER 
SUPPLY AND CABINET (DRIVE 1,2.3 EQUIV.) 


$375 


16K of 200 ns NEC MEMORY for TRS-80 
KEYBOARD 


$95 


16K of 200 ns NEC MEMORY FOR TRS-80 
EXPANSION INTERFACE 


$93 


MASTERCHARGE • VISA • BANKAMERICARD 
ACCEPTED 

FOR FAST SERVICE OR MORE INFORMATION. CALL 

(714) 893-2311 


Fins 


ADVANCED 

MICROCOMPUTER 

SYSTEMS 


13771 UNIVERSITY • WESTMINSTER, CA • 92683 
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FERRIC OXIDE 
SUBSTRATE LAYER 


ALUMINUM 
PLATTER 

Figure 1. Cutaway view of physical hard disk showing 
aluminum platter vehicle and ferric oxide substrate. 


In hard disk systems there are: fixed platter or cartridges, 
meaning the disk cannot be removed from the drive, and 
removable platters or cartridges, or a combination of both, in 
one system. Utilizing both the fixed and removable concepts 
in one system provides greater storage capability and allows 
for transporting the database. 

THE ICOM 4511 

The iCOM 4511 hard disk system utilizes both the fixed 
and removable disk concepts, which provides up to 10 
million characters of storage on one disk unit. Each disk con¬ 
tains up to 5 million characters. 

The 4511, which has been available for two years, is de¬ 
signed for the S-100 bus microcomputer systems. The unit 
(Photo 1) consists of the Pertec D3422 drive and 88-HDSK 
Data Keeper Controller. 

The controller is bus oriented with a five slot motherboard. 
The system is delivered with three plug-in boards: a proces¬ 
sor board which handles the overall control of the disk sys¬ 
tem, a data disk board that handles the disk housekeeping 
tasks, and the disk interface board that provides communica¬ 
tion to and from the disk unit. 




The system is designed to interface directly with the S-1 00 
bus computer through two parallel I/O ports. The D3000 
type drive has one fixed platter and one top loading 5440 
type removable platter (Photo 2). The platters rotate at 2400 
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rpm, with a bit density of 2200 bits per inch, providing a data 
transfer rate of 2.5Mbits per second. 

Because of the unique design of the 88-HDSK controller, 
up to four drives may be daisy chained on one system. Also 
the 4511 can be configured in a system that is simultan¬ 
eously supporting floppy disks, without causing interference. 
This flexibility in design makes it possible for users who have 
software on a floppy system to maximize their systems by ef¬ 
fecting storage system changeover without losing any time 
or capability. 

UNDERSTANDING THE STORAGE CONCEPT 

The iCOM disk unit is able to provide 10 million bytes of 
storage by treating each disk as two surfaces. Figure 2 shows 
the general layout of each physical platter. Each platter, as 
shown in the figure, has two head surfaces. Each surface is 
divided into 24 sectors. Each sector contains 406 cylinders 
or possible radial positions of the head assembly. 

The head assembly floats approximately 100 microinches 
above the surface of the platter and never touches the media. 
Due to the high rotational speed of the platter and the 
floating heads, the unit is sensitive to dust, dirt and smoke, all 
of which can cause a head crash. Figure 3 is an example of 
the sensitive nature of the mechanism. The point is that any 
hard disk system is a high technology device and is not de¬ 
signed to be moved around or mistreated. 
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SOFTWARE 

The 4511 system comes equipped with a special version 
of Altair extended BASIC, and CP/M. Both are provided on 
a 5440 type cartridge. Bootstrap loader PROMs are includ¬ 
ed to provide fast system initialization. 

CP/M was chosen in July of 1978 as the operating system 
due to its popularity and flexibility of system integration. CP/M 
treats the hard disk like a tremendous floppy, which means 
that it can be used as a main system control for a floppy/hard 
disk configured system. 

COST AND SUPPORT 

The iCOM hard disk sells in the $10,000 range for a 10 
megabyte system. This includes the drive, controller, system 
software, and documentation. Also included in the price is 
two years of field tested hard disk experience, and Pertec’s 
product support. # 

Pertec dealers have the experience and training to provide 
minimal maintenance on the system. Pertec also has 
available a maintenance contract through Sorbus, a nation¬ 
wide service organization, to provide preventative and critical 
maintenance for the units. 

According to company officials, Pertec’s emphasis is on 
ensuring both dealer and end user satisfaction. This they feel 
comes about through well-engineered product design and 
customer support.□ 


AT LAST 

A GOOD Z80/8080 DISASSEMBLER 


REVAS disassembles both 8080 and Z80 code, allowing 
you to analyze undocumented programs or modify and 
relocate software. With 23 commands, you are always 
in complete control. You may stop, restart, return to 
your system monitor, or review a disassembly on the 
console before printing it. REVAS accepts your choice 
of real labels, and will display the symbol table or a 
symbol cross-reference listing at any time. It even dis¬ 
tinguishes between instruction and data areas! REVAS 
supports 3 output devices and ITS OUTPUT IS SUIT¬ 
ABLE FOR REASSEMBLY. REVAS runs in less than 4K 
of memory (Z80 code does it), and is RELOCATABLE. 
REVAS operates in any Z80 system, with your monitor 
or under CP/M. Try it - you will wonder how you ever got 
along without it. 

AVAILABLE ON: North Star disk, Horizon disk, North 
Star-CP/M disk, Micropolis-CP/M disk, 8" CP/M disk, 
Exidy Sorcerer Cassette, or Tarbell Cassette. All Ver¬ 
sions $50.00 each, including complete 23 page User’s 
Manual. Manual Only, $5.00. 

BYTE SHOP OF LAWNDALE 

16508 HAWTHORNE BLVD., LAWNDALE, CA. 90260 
PHONE (213) 371-2421 

HOURS: TUE.-FRI. 10-7, SAT. 10-6, CLOSED SUN & MON. WE RE 3 MILES 
SOUTH OF THE L.A. INTL. AIRPORT, 3 BLKS. SO. OF SAN DIEGO FWY. 


HEAD 


100 uINCHES 
FLYING HEIGHT 


FINGERPRINT 

SMUDGES 



Figure 3. Head Sensitivity. (Provided courtesy of 
Pertec) 
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YOUR 

North Star ★ Computers 

PROGRAMMING SPECIALISTS! 

You can look to us for innovative and imaginative programs 

** Intertec Intertubes now available - *874°° ea. ** 

Double Density 600K Thinker 
Toys 8" Disk Drives for North 
Star Computers with controller 
and connecting software •1149 00 
Additional Drives *795°° 


Many different and diversified 
computers systems available. All 
include full access to Program 
Library. Systems start at *4,995°° 


DOSCHG 

Patches to connect 
Thinker Toys 8" 
Disk Drives to North 
Star DOS 8 Basic. 
Fully supports all 
North Star Functions 
on 8" disk. 

*49.95 


CSUB 

A set of Functions 
defined in North 
Star Basic that 
handle all disc ac¬ 
cessing (Sequential, 
Random, & Keyed 
Access) and all CRT 
display, format¬ 
ting & Input. A 
SUPERB APPLI¬ 
CATION PROGRAM 
DEVELOPMENT 
PACKAGE. 

*49.95 


TIMESHARE 

Patches to North 
Star DOS & BASIC 
that take advantage 
of the versatility of 
the Horizon com¬ 
puter to implement 
an interrupt driven 
bank-switching time 
sharing system. 
Requires additional 
memory & terminals. 

*49.95 


Specify CPU clock speed and Release 4 or Release 5 BASIC 
(Single or Double Density) 


Micro Mike s, Incorporated 

905 BUCHANAN -:- AMARILLO, TEXAS 79101 806/372-3633 
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Terminals and Printers 


for every application 

pmiuriter ™ 


NEC 

RO's as low as $1695 
KSR TERMINAL (55cps, RS232C) 
as low as $2595 


THE PRINTERM 879 

Unbelievable speed at low price - 

120 cpc, printing in upper and lower case with 
a 9 x 7 dot matrix in a bi-directional mode. Micro¬ 
processor-controlled RS232 or optional parallel 
interface directly compatible with TRS-80 or 
Cromemco System 2 or 3. Friction or pin-feed 
models available. Friction-feed model can use 
standard Teletype roll. 

Friction Feed Model, List $1395 $1099 

Pin-Feed Model, List $1495 $1199 


INTERTUBE by Intertec 

• 12" Display 

• 24 x 80 format 

• 18-key numeric keypad 

• 128 upper/lower case ASCI I characters 

• Reverse video, blinking 

• Complete cursor addressing and control 

• Special user-defined control function keys 

• Protected and unprotected fields 

• Line insert/delete and character insert/ 

delete editing 

• Eleven special line drawing symbols 

List $874 OUR PRICE $784 


Integral Data Systems, Inc. 


IP-125 with 1210 Option* 

List $838 OUR PRICE $754 

IP-225 with Tractor and 1210 
Option*, List $984 $889 

*1210 Option is expanded and compressed print 

TRS-80 Cable - $49 


CENTRONICS 

779 (60 cps — same as TRS-80 
printer OUR PRICE ONLY $979 

979 with T ractor $ 1039 

702 (120 cps, bi-directional) $1895 

703 (185 cps, bi-directional) $2189 


T. 1.810 as low as $1695 


$795 


SHIPPING, HANDLING & INSURANCE: Check with us for specific information. 

AH prices subject to change without notice and all offers subject to withdrawal without notice 
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WRITE FOR FREE CATALOG 
MiniMicroMart, Inc. 1618 James St., Syracuse, NY 13203 (315)422-4467 TWX 710 541-0431 


SOROC120 


OTHER VALUES... 

DECwriter II. $1490 

Teletype 43 Printers 

as low as $880 

Hazeltine 1500 

our price $1049 

Lear Siegler ADM3A $849 


NEW 

LOW 

PRICE 


i 

BANTAM 550 

from PERKIN ELMER 


Small in size, light in weight, and low in 
price — but on top of the list in features 
and performance. 

• Upper and lower case 

• Full 24 x 80 format 

• Sharp 7 x 10 dot matrix 

Get everything you want without paying for 
things you don't need - List: $996 

NOW FROM US AT9/yy 

Add $20 for anti-glare screen 































MICROCOMPUTERS 


Z-80 Starter Kit 

SD Systems announces its new Z-80 Starter 
Kit. The unit is designed for kit assembly by 
students, experimenters and OEMs evaluating the 
Z-80 microprocessor. Training school applica¬ 
tions have been particularly addressed in the com¬ 
prehensive training and assembly manual. 



Includes a Z-80 microprocessor, 1K bytes of 
RAM; 2K ZBUG monitor in ROM; 4-channel 
counter/timer; sockets for 4K PROM; 2 bi¬ 
directional 8-bit I/O ports; 28-key keyboard and 
more. Price is $249. For more information con¬ 
tact Bob Arata, (800) 527-3460. 

CIRCLE INQUIRY NO. 122 

CP/M for Micral C 

The R2E Micral C small business microcom¬ 
puter system is now compatible with the CP/M 
operating system, offering double-density mini¬ 
floppy drives and an optional 10/80 megabyte 
disk system with removable media. 



The Micral C with CP/M compatibility offers 
the user dynamic allocation of disk storage on 
floppies or hard disk, plus all the standard features 
of CP/M. Price for a Micral C with dual double¬ 
density floppies, 32K of RAM, 1920-character 
CRT display, keyboard and CP/M is $8995. For 
details contact R2E of America, 47 Bedford St., 
S.E., Minneapolis, MN 55414, (612) 378-7060. 

CIRCLE INQUIRY NO. 124 

Compucolor Cuts Prices 

Compucolor Corporation, manufacturer of the 
COMPUCOLOR II color-graphics home com¬ 
puter, has announced major price cuts that affect 
two of the three available models and many of the 
options and accessories. 



The Compucolor II Model 4, which includes a 
13-inch 8-color CRT, a built-in minifloppy disk 


drive and Extended Disk BASIC in ROM has 
been reduced from $1,795 to $1,695. The 
Model 5, with 32K of memory, has been reduced 
from $2,395 to $1,995. For information contact 
Susan Sheridan, Compucolor Corp., P.O. Box 
569, Norcross, GA 30071, (404) 449-5879. 

CIRCLE INQUIRY NO. 125 

More Powerful Interact Model One 

Interact Electronics has doubled the maximum 
memory capacity of its Model One home com¬ 
puter. With the new 16K RAM and the new ex¬ 
tended BASIC, Model One users may now write 
larger, more complex BASIC programs for more 
powerful scientific, business, personal and enter¬ 
tainment applications. 

Price is $599.95. Included with the computer, 
which is FCC-approved for home use, is a library 
of 13 pre-programmed cassettes which provide a 
wide range of programming, educational and 
entertainment capabilities for the entire family. 

For more information contact Interact Elec¬ 
tronics, P.O. Box 8140, Ann Arbor, Ml 48107. 

CIRCLE INQUIRY NO. 127 

Low Cost 6800 Development System 

Wintek’s new Development Pac II includes 
48K RAM and an EROM programmer for 
$1895. Also included is an RS-232 serial I/O 
port with switch selectable baud rates, 300 baud 



and 2400 baud cassette interfaces, an editor/ 
assembler, and industrial BASIC, and all other 
items required to configure a 48K development 
system. For details contact Wintek Corp., 902 N. 
9th St., Lafayette, IN 47904; (317) 742-6802. 

CIRCLE INQUIRY NO. 130 

M203 mark II 

The M203 mark II computer is an inexpensive 
computer for the user who does not require ex¬ 
pandability in his system. To process large quan¬ 
tities of business data, use it as the system ter¬ 
minal of a large computer or make technical com¬ 
putations based on large quantities of data. 



The standard M203 mark II contains 64K bytes 
internal memory, 350K bytes minifloppy disk 
drive, 12” CRT display, full ASCII keyboard with 
10-key pad and special purpose keys, power sup¬ 
ply affordable up to 2 drives, two RS232C inter¬ 
faces for printer and communications. 

For details contact Sord, 8300 N.E. Under¬ 
ground Dr., Kansas City, MO 64161, Bob 
Chambers, (800) 821-5436. 
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PERIPHERALS 

Universal PROM Programmer 

The Universal PROM Programmer is a single 
printed circuit board that plugs into a spare con- 


the complete 

computer 

store 


SUPPLIES AND ACCESSORIES: 


DISKETTES (BOX OF 10) 

Hard or soft sectored 5" 8" 

• VERBATIM 29.95 39.95 

• MAXELL 42.95 52.95 

• DYSAN 49.95 59.95 

If hard sectored specify 10 or 16 sectors 

• LABELS: 

AVERY (ONE ACROSS) 5000 19.50 

SOFTWARE FOR APPLE II, PET, 
TRS-80, EXIDY AND CP/M 

COMPUTER S. 

WRITE FOR OUR FULL CATALOG. 

APPLE II PROGRAM of THE MONTH 

Generalized File Manager for the 
APPLE II on Disk 


>^^^wvwvw^wvwv 

COMPLETE INTEGRATED BUSINESS 
AND WORD PROCESSING SYSTEMS 

system i:“the Diamond” 



Cromemco SYSTEM 3 
Beehive Terminal B150 
Centronics Printer 779 
Expand up to 7 Users 


OUR PRICE 
WITH COMPLETE 
BUSINESS 
SOFTWARE 



system 2 :“ the Ruby 


„ $9995 


WITH 


THE TRUE WORD 
PROCESSOR 48K RAM, 
A DIABLO R/O $8195 
PRINTER, TWO MINI DRIVES, 
AND A DESK. 


PERSONAL COMPUTERS: 

• APPLE II, 16K FROM $1075.00 

• EXIDY, 32K FROM $1049.00 

• PET FROM $ 995.00 

• ATARI 400 and 800 COMING SOON 


Hours: Tues-Fri 11:00 AM to 8:00 PM-Sat 
10:00 AM to 6:00 PM (Closed Sun, Mon) 
Master Charge, VISA, BofA are accepted. 
No COD. Allow two weeks for personal 
check to clear. Add $1.50 for handling and 
postage. For computer systems please add 
$10.00 for shipping, handling and insur¬ 
ance. California residents add 6% sales tax. 


Q computer 
components 

OF SOUTH BAY 

BUSINESS and PERSONAL 
MICRO COMPUTER SYSTEMS 
15818 Hawthorne Blvd Lawndale. Ca 90260 
(213)370-4842 
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he World Leaders 


Program Books Wri 


Payroll with Cost Accounting #09-8 $15.00 

Accounts Payable and Accounts Receivable #13-6 $15.00 

General Ledger #20-9 $15.00 

These books feature complete, quality applications software for small-to-medium 
sized businesses. Each book includes fully documented program listings, sample 
printed reports, installation instructions and user’s manual 
Written in an extended Wang BASIC (write to ask us 

about our CP/M CBASIC version and other \ - 

conversions). 


! Volume 0 - The Beginner's Book 

Volume I — Basic Concepts 

1 8080AI85 Assembly Language Programming [ 
Some Common BASIC Programs #06-3 $8.50+ | 6800 Assembly^l^^ 


76 short practical programs, most of which can be used I Z80 Assembly Language Programming 

on any microcomputer with any version of BASIC. * - 1 fC nV /i - TT ~:- 1 

Complete with program descriptions, listings, 1 ssem y Language rogrammmg | 

and examples. 200 pages. #06-3 $8.50+ 

MEW PET Cassette 

All 76 programs from Some Common 
BASIC Programs are now reprogrammed 
ready to run on the Commodore PET. 

Available on cassette only. The 
book is necessary for program 
documentation and user 
instructions. #25-X $10.00 


| 8080 Programming"For Logic Design [ 

| 6800 Programming For Logic Design 

| Z80 Programming For Logic Design 


PAYROLL WITH COST ACCOUNTING 


Accounts Payable and Accounts Receivable 

— lii I 

so \ 

CP \ 


CP \ 

General ledger 



\ \o\ 




Assemh!y Language Programming m**—~~~*~m* 

8080A/8085 Assembly Language Programming #10-1 $8.50+ 

6800 Assembly Language Programming #12-8 $8.50+ 

MEW Z80 Assembly Language Programming #21-7 $9.50 

CONtfN G 6502 Assembly Language Programming 

These books describe how to program a microcomputer using assembly language. 
They discuss classical programming techniques, and contain simplified program¬ 
ming examples relevant to today’s microcomputer applications. 400 pages each. 

. —. ... An Introduction 

Volume 0 - The Beginner’s Book 

If you’re not familiar with computers, but would like to be, then this is the book 
for you. Computer logic and terminology are introduced in a language the begin¬ 
ner can understand. Computer software, hardware and component parts are de¬ 
scribed, and simple explanations given for how they work. Text is supplemented 
with creative illustrations and numerous photographs. 300 pages. #08-X $7.95 

Volume 1 - Basic Concepts 

A must for anyone in the computer field, this best selling text explains hardware 
and programming concepts common to all microprocessors. Its universal appeal 
is reflected by its having the greatest yearly sales volume of any computer text. 
350 pages. #02-2 $8.50+ 

Volume 2 - Some Real Microprocessors* 

Provides objective, commercial-free descriptions of virtually every 
microprocessor on the market today. Lets you know what’s available, how they 
work (or sometimes don’t work), and how to use them. More detailed 
user/designer information than provided by most manufacturers. 


Programming for Logic Design — —. ^ 

8080 Programming for Logic Design #04-7 $8.50+ 

6800 Programming for Logic Design #05-5 $8.50+ 

Z80 Programming for Logic Design #11-X $8.50+ 

These books describe the meeting ground of programmers and logic designers; 
written for both, they provide detailed examples to illustrate effective usage of 
microprocessors in traditional digital applications. 300 pages each. 

Microcomputers ... .. . . .„.. 

Volume 3 - Some Real Support Devices* 

Same objective, in-depth coverage as Volume 2, but applied to support devices 
that might be used in any microprocessor system: memory, data communication 
devices, data converters, direct memory access controllers, busses, and much 
more. 


♦Volume 2 and Volume 3 Updates 


To cope with the rapid evolution of microprocessor products. Volumes 2 and 3 
have their own series of six bimonthly updates, allowing you to remain current 
with all parts as soon as they are really available. Update subscriptions sold sepa- 

rately. 


Volume 2, 1400 pgs. loose leaf #15-2 

$25.00 

Volume 2 binder #16-0 

S 5.00 

Volume 3, 700 pgs, loose leaf #18-7 

$15.00 

Volume 3 binder #19-5 

$ 5.00 

Volume 2 update only 

$25.00/yr. 

Volume 3 update only 

$25.00/yr. 

Volume 2 and 3 updates 

$40.00/yr. 


+As of July 1,1979 all $8.50 book prices increase to $9.50. If ordering after July 1, 1979 please use $9.50 price. 


oooooooooooooooo 


oooooooooooooooooooooooooooooooooooooooooooooo 


OSBORNE & ASSOCIATES, INC. 
630 Bancroft Way, Dept. C30 
Berkeley, CA 94710 

NAME_ 

ADDRESS_ 

CITY_STATE_ 

PHONE_ 

SHIPPING (Shipping for large orders to be arranged) 

Vol. 2 and Vol. 3 update subscriptions: 

□ $4.00 foreign air mail shipping per update subscription 

□ No charge in the U.S. - 4th class mail ONLY 

Books & Binders: 

□ All foreign orders $4.00 per book for airmail 

□ $0.45 per item 4th class (allow 3-4 weeks in the U.S.) 

□ $0.75 per item UPS in the U.S. (allow 10 days) 

□ $1.50 per item special rush shipment by air in the U.S. 


(415) 548-2805 
TWX 910-366-7277 


.zip. 


Book /Cassette 

Price 

Quantity 

Amount 

















Calif, residents add 6% sales tax. Subtotal 

S.F. BART residents add 6-1/2 % sales tax. 

No tax on update subscriptions. California residents tax 



Updates: 




for purchases of up to $70.00. Invoicing U.S. Shipping 

approval of your account. All foreign orders 

, on. US bank T0TA L AMOUNT 

ENCLOSED 




Cassettes: 

□ No additional charge in the U.S. 

□ $1.50 each foreign air mail 


Please send the following information: 

□ Becoming an O&A dealer 

□ School discounts 


□ List of foreign distributors 

□ Current catalog 

□ CP/M CBASIC business programs 


SI 025 
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troller slot of the OP-1 terminal. The software 
used to program PROMs with the board does not 
depend on which of the four controller slots it is 
plugged into. Usually, it is convenient to plug the 
programmer into slot 7, leaving controller slots 8 
for hard disk, 9 for diskette, and 10 for printer. 

The UPP is similar in dimensions to a standard 
controller with the exception of its length. It ex¬ 
tends out of the card cage and allows access to 
the PROM sockets without the power down of the 
terminal and the removal of the card. The PROM 
programmer uses the internal power supply of the 
terminal and needs no external power supplies or 
connections of any kind. 

The hardware has been designed for both Intel 
and Texas Instruments versions of the 2716 
EPROM. It also has the capability of programm¬ 
ing the 2732 and 2764 when these PROMs 
become available. 

For more information and pricing contact 
Nelma Electronics Limited, 1707 Sismet Rd., 
Unit 9, Mississauga, Ontario, Canada L4W 2K8. 

CIRCLE INQUIRY NO. 136 

RS-232C Computer Compatible 
Paper Tape Reader 

Addmaster Corporation announces that the 
Model 612 Stand Alone Paper Tape Reader is 
now available from stock and is shipped in 1 to 3 
working days after receipt of order. The Model 
612 has greater capacity than earlier models. 



The ability to read 5 to 8-level tape and to 
transmit 7 to 11 frames per character at 50 to 
9600 baud are among the new features. RS 232 
current loop or parallel outputs are available. 

Desk top or rack mounting. Single unit prices 
from $625 to $761. For details contact Add¬ 
master Corp., 416 Junipero Dr., San Gabriel, 
CA 91766, (213) 285q1121. 

CIRCLE INQUIRY NO. 137 

THE APPLE CLOCK 

Mountain Hardware has a Real-Time Calendar/ 
Clock for Apple II computers. The Apple Clock 
keeps time and data in Ims increments con¬ 
tinuously for over one year. Calendar, clock, and 
event timer functions are easily accessed from 
BASIC using routines carried in on-board ROM. 
H- i ——— - n 



Crystal controlled for accuracy. An interrupt 
feature is provided which can be programmed to 
make efficient use of computer time. 

Price is $ 199 assembled and tested. Delivery is 
stock to 30 days. For information contact Moun¬ 
tain Hardware, Inc., 200 Harvey West Blvd., 
Santa Cruz, CA 95060, (408) 429-8600. 

CIRCLE INQUIRY NO. 138 


DISKS 

AJ 460 Micro Diskette System 

The AJ 460 is a communications storage 
device that uses a 5!4-inch minifloppy disk for 



COMPUTER 
POWER FOR 
BUSINESS 

SUBSCRIBE TO THE MAGAZINE THAT 
COVERS EVERYTHING YOU NEED TO 
KNOW ABOUT CHOOSING AND USING 
COMPUTERS. 


• The best computer for your 
business 

• How business people use micro¬ 
computers 

• Computer primer 

• Introduction to business software 

• Answers to your questions 

• Advice from experts 

• How to deal with suppliers 


• Computer profit windfalls and 
hidden costs 

• Best buys in computer equipment 

• Scanning the stockmarkets 

• Computer contracts 

• Service bureaus vs. in-house 
computers 

• Small computers in large 
corporations 


Small Business Computers Magazine 

33 Watchung Plaza, Montclair, NJ 07042 

□ Check Enclosed □ Bill me 
Name_ 


SUBSCRIBE NOW! 
One year for only $9! 

(V 2 newsstand price) 
subscription fee may be business 
expense tax deductible 

IA-5/79 


Address ___ 

Company - 

City/State -Zip 


storing and preparing information. Designed to 
be an efficient replacement for paper tape, 
cassette or mag card units, the AJ 460 offers the 



user advantages of faster transmission rates, split 
speed for slower terminals, instant line address¬ 
ing, longer media life and high data reliability. 

Price for one is $1995. For information con¬ 
tact Anderson Jacobson, Inc., 521 Charcot Ave., 
San Jose, CA 95131, (408) 263-8520. 

CIRCLE INQUIRY NO. 140 

Gunn Utility Disk 

Cromemco owners can handle disk directories 
and files easier and faster with the 11 utilities on 
the Gunn Utility Disk No. 1. This new machine 
language utility package, used with CDOS, per¬ 
mits doing things with Cromemco systems that 
were impossible before. 

The new Gunn utilities include: alphabetize 
diskette directories; create .CMD files from direc¬ 
tory to allow transferring or outputting selected 
file groups; isolate bad diskette clusters into bad- 
cluster directory; recover/display erased directory 
entries; map on console or printer the diskette 
clusters occupied by all or any selected file or 
group of flies; permit Jumping to and executing 
programs at a HEX addres; provide current date 
(month, day of month, year) for easy use by any 
program with file access capability; automatically 
eject diskette from selected drive(s) when desired. 


All eleven major utilities are provided on a 
single minifloppy or 8 inch diskette along with a 
clear instruction manual that helps the user enjoy 
added operating ease immediately. 

Price is $95, available from computer stores or 
from the distributor, Comput-R-Ware, Div. Ken 
Kirkpatrick Advertising Inc., 7910 Westglen, 
Houston, TX 77063. 

CIRCLE INQUIRY NO. 141 

Floppy Disk Controller 

The FD-100-STD is for users of STD Bus 
Z-80 microprocessor systems. The FD-100, 
which is physically and electrically compatible 
with the new Pro-Log/Mostek STD bus concept, 
will support up to four IBM standard format soft- 
sectored floppy disks, in either 8” or 5!4” size. 

The software controllable flexibility of the 
FD-100 allows intermixing of both types of 
drives. A motor ON/OFF control circuit for mini¬ 
floppies is provided as a standard feature. 

The controller incorporates a Z-80 PIO circuit 
and will fully support Mode 2 interrupt-structured 
software. I/O port selection is mini-switch select¬ 
able. 

Single quantity price is $215. OEM discounts 
available. For more information contact Applied 
Micro Technology, P.O. Box 3042, Tucson, AZ 
85702, (602) 795-9929. 

CIRCLE INQUIRY NO. 142 


TERMINALS 


Graphic Display Board 

The PBM-1 is a memory-mapped alpha¬ 
numeric and graphics display board for the SS50 
bus. Built around the Motorola MC6845 CRT 
controller integrated circuit, the board provides 
the following features: programmability via the 
processor bus; on-board screen memory in 1K 
increments up to 4K; programmable cursor with 
various formats; on-board I/O port for keyboard, 
printer, joystick, etc.; upper case, lower case and 
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graphics characters available simultaneously, and 
much more. For details contact F & D Associates, 
1210 Todd Rd., New Plymouth, OH 45654. 


CIRCLE INQUIRY NO. 144 

Capacitive Touch Keyboard 

Star Devices manufactures a low cost data input 
terminal for microprocessors. The features of the 
standard unit include 7 bit parallel ASCII encoded 


output with positive and negative strobe edges; 
full ASCII character set; auto repeat; audio feed¬ 
back; low profile plastic case; requires 5 volts at 



200 mA. Options include serial RS 232 output; 
20 mA current loop; parity check bit; on-board 5 
volt regulator; open collector outputs active high 
or low. 

For more information contact Star Devices 
Limited, P.O. Box 21, Newbury, Berks, U.K. 

CIRCLE INQUIRY NO. 148 



MICROBYTE 32K I.M.S. 8K 149.95 


695.00 

FULLY STATIC —450ns 

tV iV 

Industrial Micro Systems 



Fast 

Slow 

16K 

439.00 

395.00 

32K 

769.00 

695.00 

Microbyte 


16K 

439.00 

395.00 

32K 

769.00 

695.00 



GUARANTEED TO RUN 
AT 4Mz 


CCI 


No Purchase Orders or Open Account at these prices. Open Monday starting March 1, 1979. 


CIRCLE INQUIRY NO. 64 


PRINTERS 


TRS-80 Modular Printer Interface 

The TRS-80 Print Module plugs directly into 
the back of the Radio Shack Computer (key¬ 
board) and eliminates the need for the Expansion 
Interface when driving such printers as Cen¬ 
tronics, Telpar and Axium. 



All line print commands in Level II BASIC are 
compatible and, because the module draws 
power from the printer, the TRS-80 remains 
completely unaffected by the interface. 

Price is $99.95. Delivery stock to 3 weeks. For 
details contact American Micro Products, 6550 
Tarnef, M/S 11, Houston, TX 77074, (713) 
777-2759, Bill McNeil. 

CIRCLE INQUIRY NO. 150 

Graphics for DECwriters 

Selanar Corporation is now shipping its 
GRAPHICS II add-on feature for LA35 and LA36 
DECwriters. For either new or old DECwriters it 
offers significant added performance, using the 
DECwriter console driver and provides a hand¬ 
shake protocol. 



Graphics II key features include graphics out¬ 
put, APL, Math Symbol sets; International sets, 
special symbols; Boldface, double width and rota¬ 
tions; horizontal and vertical tabs, form feed; 
1200 baud, 1000 character buffer. 

Price is $850. Delivery is 60 days. For details 
contact Selanar Corporation, (408) 737-2777. 

CIRCLE INQUIRY NO. 151 


I/O BOARDS 


Control System for TRS-80 and PET 

Able to sense up to 24 inputs and drive 16 
medium power outputs, the SV-16 is a plug com¬ 
patible turnkey control system with all software 
and hardware furnished. Plug it in, enter the pro¬ 
gram and start operation. 



The 16 output devices can be any 6 volt or less 
ON/OFF mechanism using less than !4 ampere. 
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MANAGE 

NATURAL LANGUAGE DATA BASE MANAGER 
FOR THE ALPHA MICRO SYSTEM 


Allows processing of files by sentences written in English, rather than by programs written in 
a computer language. For example, you may ask the computer to "List prospects whose in¬ 
terest is houses and whose price is between $60,000 and $90,000 by Zip Code as labels”. 

Definitional capability allows easy categorization of records into terms meaningful to the 
user. For example, telling the computer "DEF: Pasadena Residents: Mailing whose Zip Code 
is between 91101 and 91108 but not 91102” would allow subsequent processing using only 
the words “Pasadena Residents” to refer to that group. User defined terms are unlimited in 
form, length and number. 

Help messages are available throughout the system for user convenience. By simply entering 
a question mark, at any time, the system will respond with a message specifying the type of 
input MANAGE is expecting. Dual question marks will print the message in greater detail. 
Triple question marks will display a complete, menu driven user's manual. 

Other special features include: user defined, unlimited length fields; access from user pro¬ 
grams via command files; passwords; background processing; and flexible output formatting. 

A new approach to memory management optimizes the mapping of data, and the loading of 
programs, for maximum operating speed in the amount of memory available in the user’s 
system. This is done automatically, and is transparent to the user. Thus thousands of records 
can be stored, ordered, categorized and otherwise processed in a matter of seconds, rather 
than in minutes or hours. Practical applications include: 


Mailing lists 
Market analysis 
Inventory files 
Personnel files 
Customer listing 
Buyer’s Guide 
Budget Analysis 
Price lists 


Real Estate listings 
Quality Control Records 
Telephone directory 
Reservation system 
Mail order management 
Library cross indexing 
Appointment scheduling 
Employment agency files 


A ready-to-use disk, with complete user’s manual, is priced at $1250. A demonstration disk, 
with a maximum capacity of 90 records, is available for $100. Manual only, $5.00. Enhanced 
versions, as they become available, will be available to all users for a copying charge of 
$25.00, including revised manual. 


The Byte Shop of Lawndale offers complete, turn-key systems with Video terminal, High 
speed printer, 48K memory, and a 10 Megabyte hard disk drive at prices starting at $15,750. 


BYTE SHOP OF LAWNDALE 

16508 HAWTHORNE BLVD., LAWNDALE, CA. 90260 • PHONE (213) 371-2421 

HOURS: TUE.-FRI. 10 7, SAT. 10-6, CLOSED SUN. & MON. WE’RE 3 MILES SOUTH OF THE L A. INTL. AIRPORT, 3 BLOCKS SOUTH OF SAN DIEGO FWY. 


CIRCLE INQUIRY NO. 61 





Input devices can be TTL gates, or any form of 
switch contacts. 

Price is $289 assembled. For for information 
contact Cooper Computing, Box 16082, 
Clayton, MO 63105. 

CIRCLE INQUIRY NO. 153 

Printer Interface Card 

Cromemco’s new printer interface (PRI) card 
makes it easy to interface either dot-matrix or 
daisy-wheel printers to a computer system. The 
PRI card is designed with two actual interfaces. 
One uses the “Centronics parallel” convention 
and interfaces with Cromemco Model 3779 or 
3703 dot-matrix printers. The second interface 
uses the “daisy-wheel parallel” convention and 
interfaces with Cromemco Model 3355 daisy- 
wheel printer. 

The second interface has built-in ribbon-life and 
ribbon-lowering circuitry to free the software 
overhead normally required for this function. 



Price is $195 factory assembled. Cables avail¬ 
able in two lengths. 62 cm (Model CBL-2) for 
$15; and 110 cm (Model CBL-3) for $15. For 
information contact Cromemco, Inc., 280 Ber¬ 
nardo Ave., Mountain View, CA 94043, (415) 
964-7400. 


MEMORY BOARDS 


Price Reduction on Multibus Memory 

Mu pro Corporation has reduced prices on its 
serie sof 16K memory boards, which are 
multibus compatible. The MBC-016 16Kx8 stan¬ 
dard memory board has been reduced from 
$985 to $795. 

The MBC-016P 16Kx8 memory board featur¬ 
ing parity to detect memory errors has been 
reduced from $1050 to $850. 

The MBC-016C 16Kx8 memory board featur¬ 
ing full error checking and correction (ECC) for 
85 times more reliability has been reduced from 
$ 1395 to $ 1175. The MBC-016C also features 
LED indicators which pinpoint any failing mem¬ 
ory chip, enabling easier field servicing. 

For more information contact Mupro Corp., 
424 Oakmead Pkwy., Sunnyvale, CA 94086, 
(408) 737-0500. 

CIRCLE INQUIRY NO. 161 

64K Byte Dynamic RAM Board 

SupeRam, manufactured by Piiceon, Inc., of 
San Jose, California and marketed by Alpha 
Micro is completely compatible with the 16-bit 
Alpha AM-100 CPU. 



SupeRam is a high-density random access 
memory board capable of storing up to 65,536 
bytes of data on a single board. Completely 
S-100 bus compatible, it utilizes 16K dynamic 
RAMs to achieve maximum bit density, minimum 
power dissipation and optimum cost/perfor¬ 
mance ratio. 

Available for immediate shipment. For further 
details contact Alpha Micro, 17881 Skypark 
North, Irvine, CA 92714, (714) 957-1404. 

CIRCLE INQUIRY NO. 162 

New Memory Board 

The Model 370 is a 32 Kbyte static RAM board 
that operates on the S-100 bus. The design, 
manufacturing and testing are done to industrial 
standards. 



The board’s starting address can be selected at 
4K boundaries. Memory mapping capability is in¬ 
cluded so that more than 64 Kbytes of memory 
can be utilized in a system. Processor Write or 
Memory Write signals can be selected for writing 
data into memory, and the Phantom Line cap¬ 
ability is included. 

For more information contact Industrial Micro 
Systems, 628 N. Eckhoff St., Orange, CA 
92668, (714) 633-0355, Murray Shackelford. 

CIRCLE INQUIRY NO. 163 


MODEMS 

Leased Line, 1200 Baud Modem 

TEK-COM’s TC5001 modem has been de¬ 
signed to optimize the transfer of medium-speed 


CIRCLE INQUIRY NO. 155 


r 


TRS-80 


PERIPHERALS & SUPPLIES 


1 




Fully compatible with Radio Shack 
drives. Includes: ■ Power supply ■ 
case (specify silver or blue) B4 drive 
connector cable ■ verbatim diskette 
with test program and user op. system 
■ 60 day warranty ■ complete user 
instructions. 




SETS 200NS 16K Dynamic RAM Memory Kit. 

I h# NEC chips. Includes jumpers and in¬ 
structions for installing in TRS-80 key¬ 
board unit or expansion interface. 
(Specify keyboard or interface.) 


FOR 




These are the top of the line in disk¬ 
ettes and worth every cent of the $6.00 
each that you pay elsewhere. 



L7TQ With forms tractor. This is the same 
I * “ * printer that Radio Shack supplies. A 
® 399.00 savings if you buy from us. 


m.r R 


All set to run on your TRS-80 at twice 
the speed of the 779. 


Send to P.P.S. 

P.O. Box 2051. Seal Beach. California 90740 

For fast service or information call (714) 894-3736 
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data over unconditioned lines. The TC5001 of¬ 
fers a full set of test functions and diagnostic in¬ 
dicators for ease of installation and system 
troubleshooting. 



Specific design and operational features in¬ 
clude: 0 to 1200 baud asynchronous data rate; 0 
to 1800 baud over C-2 conditioned lines (option); 
half/full duplex; point-to-point or multipoint poll¬ 
ing and addressing; and more. 

Price is $395 for one. Delivery is 15 days 
ARO. For more information contact Robert Way, 
President, (408) 736-3282. 

CIRCLE INQUIRY NO. 166 


TEST EQUIPMENT 

MicroSystem Analyzer 

The Intel 8085 MicroSystem Analyzer allows 
operation by technicians and service personnel 
with a limited understanding of the system under 
test. Personnel with varying skills can test pro¬ 
ducts using any and all of Intel’s microprocessors. 



Unit price is $2,750. Delivery is 45 days ARO. 
For details contact Millennium Systems, Inc., 
19020 Pruneridge Ave., Cupertino, CA 95014, 
(408) 996-9109, David West, Dir. of Mktg. 

CIRCLE INQUIRY NO. 168 


4V2 Digit High-Accuracy DMM 

The Model MC545 is a bench-type multimeter 
that features five function modes (DCV, ACV, 
DCmA, ACmA and OHMs) and provides auto¬ 
matic zero adjustment and polarity indication. 



The modes appear on the LED display. This 
highly accurate instrument has a voltage meas¬ 
urement range of 2 to 1000 volts AC and DC; a 
current measurement range (AC and DC) from 2 
to 1000 mA; and a resistance measurement 
range to 200 megohms. 

Price is $289.95. Delivery is from stock. For 
details contact Soar Electronics Corp., 200 13th 
Ave., Ronkonkoma, NY 11779. 

CIRCLE INQUIRY NO. 174 


POWER SUPPLIES 


Switching Power Supply 

A series of 150-watt, open-frame convection 
cooled AC-DC switching power supplies are de¬ 
signed for use in computer peripherals, business 
machines and industrial-control systems. 



All outputs are fully regulated to 0.1 percent for 
92 to 138 volts and 184 to 276 volts AC line 
condition, and 0.5 percent for 0 to 100 percent 
load changes. 

For more information contact Gould/Elec¬ 
tronic Components Div., P.O. Box 6050, El 
Monte, CA 91731, (213) 575-4777. 

CIRCLE INQUIRY NO. 177 


COMPONENTS 


Digital Delay Line 

Hermetically sealed in a metal 14-pin DIP 
package, this delay line is designed to withstand 
such severe manufacturing processes as wave 
soldering and freon degreasing. 


1 MVTEK 
\ W* 



The HY-5001 features Schottky buffered in¬ 
put/ outputs which provide a delay accuracy of 
±2ns/ 5%, true waveform reproduction and 
standard digital fanouts. 

Price is $14.80 in OEM quantities. For infor¬ 
mation contact Hytek Microsystems, Inc., 16780 
Lark Ave., Los Gatos, CA 95030, (408) 
358-1991, Dick Fryhoff. 

CIRCLE INQUIRY NO. 179 

One-Chip Universal Timer Controller 

The TMS 1121 is a pre-programmed (firm¬ 
ware) version of the TMS 100 single chip micro¬ 
computer. The TMS 1121 features 18 daily or 
weekly selectable timer settings; four independent 



switched outputs for control of external devices, 
50 Hz or 60 Hz line synchronization, and display 
signal driver input for both day of the week and 
time of the day. 

Price for 100 is $8.61 each. For details contact 
Texas Instruments Inc., IAS, P.O. Box 1443 
M/S 6406 (Attn: TMS1121) Houston, TX 77001. 

CIRCLE INQUIRY NO. 182 


r 


APPLICATION SOFTWARE from OMEGA MICRO 

Finally, Extensive yet Inexpensive Application Programs 
for Microsoft*-Disk Extended BASIC and CP/M* 




GENERAL LEDGER 

• MENU DRIVEN 

• AUTOMATIC DOUBLE ENTRY SYSTEM 

• COMPLETE G/L FILE MAINTENANCE 

• THROUGH G/L DETAIL(AUDIT TRAILS) 

• AUTOMATIC CHECK ENTRY PROGRAM 

Allows ease of entry of prewritten 
standard or payroll checks. 

• MAINTAINS EMPI.OYEE PAYROLL 
DEDUCTIONS 

• FINANCIAL REPORTS AVAILABIJ! 
ANYTIME 

• UP TO 150 G/L ACCOUNTS 

• OMEGA DFD* PROGRAM 
SPECIFICATIONS 

Diskette $98.00 Manual $10.00 


APARTMENT MANAGEMENT 

• MENU DRIVEN 

• MULTI-PROJECT MANAGEMENT 
CAPABILITY 

• COMPLETE TENANT RENT PAYMENT 
RECORD 

e THOROUGH TENANT FILE 


MAINTENANCE 

• UPDATES RENTS AT ANYTIME 

• APARTMENT MANAGEMENT REPORTS 

Vacant Apartment Report 
Tenant Rent Due Report 
Tenant Rent Roll Report 
Tenant Master File Report 
Etc. 

• HANDLES UP TO 300 UNITS PER 
DISKETTE 

• DFD* PROGRAM SPECIFICATIONS 

Diskette $98.00 Manual $10.00 


PAYROLL 

• MENU DRIVEN 

• AUTOMATICALLY COMPUTES WAGES: 

Salary, Hourly or Combined 

• MULTI-DIVISION COMPANY PAYROLL 
CAPABILITY 

• COMPLETE EMPLOYEE FUJI: 


(MTD, QTD, and Y I D) Earning and 
Deduction Totals. 

• COMPENSATION REPORTS 

• EMPLOYEE MASTER KILE REPORTS 

• PRINTS W-2 and 941 FORMS 

• PAYROLL CHECKS: 

Allows for Automatic printed or Manually 
written checks. 

• UP TO 75 EMPLOYEES PER DISKETTE 

• DFD* PROGRAM SPECIFICATIONS 

Diskette $98.00 Manual $10.00 


MEDICAL BILLING 

• MENU DRIVEN 

• PATIENTS RECORD FILES: 

Automatically Creates and Updates 

• (XJMPLETE PATIENT FILE 
MAINTENANCE: 

(Add, Change, and Delete) 

• PRINTS PRIVATE AND THIRD 
PARTY BILLS: 

Private on standard paper 
Third Party Insurance on Universal 
Insuance Form 

► UP TO 600 PATIENTS PER DISKETTE 

• PROGRAMMED BY A PRACTICING 
PHYSICIAN 

• USING OMEGA DFD* PROGRAM 
SPECIFICATIONS 

Diskette $98.00 Manual $10.00 


DATA BASED MANAGEMENT 

• MENU DRIVEN 

• CUSTOM DATA FILES: 

May be set up and maintained without 
need of additional programming. 

• CUSTOM REPORTS: 

May be structured or changed anytime 

• LINKED DATA FILES: 

Custom files may be accessed by users 
programs. 

• SELF DOCUMENTING: 

Creates complete file documentation on 
custom files created by user. 

• DFD* PROGRAM SPECIFICATIONS 

Diskette $88.00 Manual $10.00 


SYSTEM HARDWARE REQUIREMENTS 

8080 or Z-80 Computer System with 48K RAM 

or greater 

Dual Disk Drives 

Digital Research CP/M Disk Operating System 
132 Column Printing Device 

80 Column by 21 lino scroon diepluy 

^Microsoft Disk Extended BASIC 


MICROSOFT DISK 
EXTENDED BASIC 
$350.00 

dealer inquiries invited 

*Designed For Dummies y 


WE’VE GOT 
HARDWARE 
TOO! 


^ alpha 


A 

VECTOR C^APK.C 

gcippkz computer 



OMEGA MIOFC 30MPUTEFS 


3535 TORRANCE BLVD., SUITE 10 

TORRANCE, CALIFORNIA 90503 • (213)370-9456 


HOURS: 

MONDAY-THURSDAY 

FRIDAY 

SATURDAY 

SUNDAY 


FOR QUICK RFSPONSf 
CAU OR WRITE US 
DIRECT. 

MAIL ORDERS WEICOME 
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IF YOU HAD 
FOLLOWED ELIOT 
JANEWAY’S ADVICE 
YOU’D BE WAY AHEAD 
OF THE GAME. 


L 



YOU CAN STILL GET AHEAD. 
IT S NOT TOO LATE. 

Q: Who said a single family home bought in 1975 would turn out to be the best 
investment you would ever make? 

A: Eliot Janeway. 

Q: Who said utility stocks yielding 11-13% in 1976 would at worst keep you ahead 
of inflation and at best surprise you with a profit? 

A: Eliot Janeway. 

Q: Who said gold bought in 1977 would be your best insurance against the collapse 
of the dollar? 

A: Eliot Janeway. 

Q: Who said a return to double digit interest rates in 1978 would keep the 
smart investor close to cash? 

A: Eliot Janeway. 

Just lucky? Not with a diversified track record like that. 

How does he do it? Political judgment makes today’s investment opportunities. 
Tomorrow’s won’t be the same as yesterday’s. That’s why you need independent 
thinking that isn’t committed to just one kind of investment strategy, and that’s savvy 
about sudden shifts in the political climate, too. 

That’s different. That’s Eliot Janeway. Every week in The Janeway Letter. 
When gold is hot, he’ll tell you. When bonds are not, he’ll tell you. When another 
home is your best bet, he won’t hestitate to recommend it. 

What’s ahead for 79? Want some solutions for a change? Subscribe now to 
The Janeway Letter and you’ll wonder how you ever did without it. 

No frills. No fancy phrases. No phony statistics. No stock tips. You won’t find its 
recommendations anywhere else. And with a proven track record like Eliot 
Janeway’s as your insurance policy, what better way to check up on your investment 
advisors’ sense of direction? How politically astute are they? 


CM-I 


Please send me THE JANEWAY LETTER for I™ 

□ 1 yr. (50 issues) $150 □ 3 mos. (12 issues) $48 

Either of these subscriptions entitles you to receive Eliot Janeway’s Exclusive Report 
on the 1979 Business Year FREE. □ 4-week Trial $18 

□ Please send me an autographed copy of Eliot Janeway’s financial philosophy 

Musings on Money: How to Make Dollars Out of Sense $7.50 





Make checks payable to Janeway Publishing & Research Corp, 15 E. 80th St.. New York. N.Y. 10021 
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Micro V Brochure 

A 4-page brochure from Micro V describes 
MICROSTAR™, a new low-cost, multi-user, 
multi-task computer designed for the small busi¬ 
nessman. Complete with photos and typical sys¬ 
tem diagram, this brochure describes the com¬ 
puter in terms of system hardware and software, 
and also provides full system specifications. 

A few of the features highlighted are: STAR- 
DOS™ multi-user operation system with BASIC 
language support; UPDATE data base manage¬ 
ment and report writer; and the MICROSTAR™ 
single-board computer design. 

For a copy, contact Micro V Corp., 17777 
S.E. Main St., Irvine, CA 92714, (714) 957-1517. 

CIRCLE INQUIRY NO. 189 

Buyers Guide 

Releases on software and accessories for the 
Apple II and the TRS-80 as well as a wide range 
of computer supplies are listed in “A Buyer’s 
Guide to Software,” which is updated weekly. 
Most items in the guide are in stock and ready for 
delivery. 

The Buyers Guide is free. Send 50 cents for 
P&H. For details contact Ronald Wallace, 
Wallace Electronics, Inc., 4921 N. Sheridan Rd., 
Peoria, IL 61614, (309) 692-2616. 

CIRCLE INQUIRY NO. 191 

Software Library 

Creative Computer Consultants Inc. has 
published the Standard Software Library, a series 
of books containing listings of programs written in 
BASIC with complete documentation. 

Volume 1 “General Ledger” enables a small 
business to set up a fully automated General 
Ledger system with a complete Chart of Ac¬ 
counts. Included are programs for editing, sor¬ 
ting, merging and posting of transactions. 

Volume 2 “Accounts Receivable” provides a 
fully automated system for dealing with customer 
accounts. 

Volume 3 “Payroll” enables a business to 
automate all of the normal payroll functions. 

For information contact Creative Computer 
Consultants Inc., P.O. Box 2111, Norwalk, CT 
06852, (203) 847-0141. 

CIRCLE INQUIRY NO. 197 
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Income Tax Manager 

TCD Incorporated is offering a tax program in¬ 
tended for use by individual taxpayers. This pro¬ 
gram summarizes the 1978 form 1040 and 
Schedule A (itemized deductions) in a format that 
follows the IRS forms. 

The software is distributed on North Star disk¬ 
ette. The program written in North Star BASIC 
will run in a minimum of 32K of contiguous 
memory from 2000 to 9FFF (HEX). Documen¬ 
tation includes a complete manual describing the 
step-by-step operation of the program. 

Price is $24.95. For more information contact 
TCD Inc., P.O. Box 58742, Houston, TX 
77058, (713) 486-0291. 

CIRCLE INQUIRY NO. 203 

Integrated Accounting System 

An Integrated Accounting Software System for 
microcomputers is now available from Peachtree 
Software, a division of Retail Sciences, Inc. The 
system is organized into four packages — Gen¬ 
eral Ledger, Accounts Payable, Accounts Receiv¬ 
able, and Payroll. 

The software is written in Microsoft BASIC and 
executes under the CP/M operating system or 
equivalent. Hardware requirements include an 
8080-compatible processor with 48K of RAM, 
132 column printer, video terminal and a mini¬ 
mum of 0.5 megabytes of online disk storage. 

For more information contact Peachtree Soft¬ 
ware, Suite 419, 3384 Peachtree Rd., N.E., 
Atlanta, GA 30326. 

CIRCLE INQUIRY NO. 204 


142 INTERFACE ACE 


CIRCLE INQUIRY NO. 86 


MAY 1979 













































INTRODUCING — LOUMAR MANAGEMENT SYSTEMS SOFTWARE 


4 


programs to give you a comprehensive package for business management 


The Loumar General Accounting System is a versatile, fully integrated software package designed for 
small and medium sized businesses. It is also suitable for CPA’s and bookkeeping service firms. 

The complete software system is composed of four main modules: GENERAL LEDGER, ACCOUNTS 
RECEIVABLE, ACCOUNTS PAYABLE AND PAYROLL. Each module may be used separately or in com¬ 
bination with any other module. 

All software is written in CBASIC II and utilizes the powerful CP/M operating system. 

General system features include: 

Automatic posting to general journal • Strict error detection • Report production • Consistent 

operating procedures • User oriented. No previous computer knowledge required • Designed by ac¬ 
counting professionals • Comprehensive, well presented reports and manuals • Single or multiple client 
capabilities. 

PAYROLL: Up to 500 employees — $550. 

ACCOUNTS RECEIVABLE: Up to 1000 customers and 1000 monthly 
transactions — $550 

Write for our brochure ACCOUNTS PAYABLE: Up to 1000 vendors and 1300 monthly trans- 

Dealerships still available actions — $400 

Contact: GENERAL LEDGER: Up to 200 accounts with 2000 entries — $450 

Distributor 


MISSION CONTROL • 2008 WILSHIRE BOULEVARD, SANTA MONICA, CALIFORNIA 90403 
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SOFTWARE SECTION 


SOFTWARE TUTORIAL 


INTRODUCTION 

Report writing is a common activity of those in the 
business world. There may be several re-writings of the 
manuscript before the final version is obtained. The author 
first creates an outline of the important points, then he ex¬ 
pands these ideas into a first version. A secretary converts 
this into a double-spaced rough draft. 

The businessman may add ideas between the lines of the 
rough draft or may insert new pages. If reorganization is 
necessary, some of the pages may have to be cut up with 
scissors and taped back together in the desired order. The 
final version is created by a retyping of the entire manuscript. 
This cumbersome process requires authors to carefully 
organize their thoughts before starting on their report (or to 
hire very patient secretaries). 

USING A COMPUTER 

The increasing availability of digital computers with text 
formatting capabilities is simplifying the task of report 
writing. One of the tasks that digital computers are especially 
suitable for is that of text processing. Editors of varying levels 
of sophistication are built into most BASIC interpreters. 

The editors contained in 4K and 8K BASIC are usually 
limited to the replacement of entire lines, or to the correction 
of the most recently typed character. EXTENDED and DISK 
versions of BASIC contain a more versatile editor that allows 
the user to alter any character in the entire program. Some 


ule, such as the Processor Technology VDM-1, is neces¬ 
sary. While these video systems are relatively inexpensive, 
they generally display only 16 lines of 64 characters per line, 
rather than 24 lines of 80 characters that the usual video ter¬ 
minal provides. Furthermore, the VDM-1 doesn’t work pro¬ 
perly with some Z-80 boards. 

A different approach to text formatting is taken by Digital Re¬ 
search, the organization that produced CP/M. They have writ¬ 
ten a program called TEX that will convert a work file into a for¬ 
matted print file. The work file is written first, then the finished 
file is generated with TEX. Finally, the finished file is printed. 

The ASCII work file, with a file type of .TEX, is generated 
by using the regular CP/M text editor ED or the Microsoft 
editor EDIT-80. The user simply types his lines, paying no 
particular attention to line lengths. Words are not hyphe¬ 
nated at the ends of lines. Formatting commands, which are 
located within the text, can be added either during text 
generation, or can be added later. 

PRODUCING A FORMATTED FILE 

The TEX source file can be converted to a finished PRN 
output file by executing the text formatter TEX.COM. The 
command: 

A>TEX REPORTS 

will produce a file named REPORTS.PRN from the work file 
REPORT5.TEX. The PRN file can be printed on the list 
device by using PIP, the CP/M peripheral processor: 


TEX: A TEXT-OUTPUT 

FOR 


Review by Alan R. Miller, 


assemblers also incorporate a text editor. (An assembler text 
editor was described in the October, 1978, issue of INTER¬ 
FACE AGE.) 

Programs designed to be run with a disk-operating system 
(DOS) such as CP/M don’t need a self-contained text editor. 
(CP/M was reviewed in the July and December 1978 issues 
of INTERFACE AGE.) The DOS is organized into a file 
system and there is a system editor for creating and altering 
any of the ASCII data files. Thus the user can initially 
generate his source program using the system editor, then 
run the program with a BASIC or FORTRAN processor. If 
an error is discovered during execution, the system editor is 
used to make the correction. Disk-oriented BASICs such as 
those written by MicroSoft and Xitan also incorporate their 
own editor. 

TEXT FORMATTING 

in contrast to a text editor, there is another class of pro¬ 
gram that is called a text-output formatter. These programs 
convert an ASCII work file into a finished file that looks like 
typewritten copy. 

The Electric Pencil is a self-contained, text-output format¬ 
ter of this type. As the user enters words from the console 
keyboard, they appear on a video screen. After a file has 
been written, it can be altered with the built-in editing com¬ 
mands. A disadvantage of this package is that the work file 
that is ultimately saved on disk is not in its final form. Another 
disadvantage is that a memory-mapped video-display mod- 


A>PIP LST: = REPORT5.PRN[T8] 

If, after viewing the resulting PRN file, the user wants to 
make corrections, the CP/M system editor can be used to 
alter the .TEX work file. Then TEX.COM is rerun to produce 
the revised PRN file. Several PRN files can be combined into 
one master file using PIP: 

B >A:PIP REPORT.PRN =*= REPORTS.PRN,PROGRAM.PRN 

where REP0RT5 could be a file formatted by TEX and PRO- 
GRM could be an assembly listing produced by MAC or 
ASM. 

THE FORMAT COMMANDS 

There is a complete set of format commands that are placed 
between the regular lines of text in the TEX file. All of these 
commands start with a period as the first character on the 
line. Some of the commands are placed at the beginning of 
the TEX file. These will generally control formatting for the 
entire file and may override default options. 

Other commands are placed throughout the text and 
usually apply to the next line or paragraph. All of the com¬ 
mands are discussed in detail in the user’s manual. Some of 
the more useful ones will be described, primarily to indicate 
the power of TEX. 

THE DEFAULT VALUES 

Some of the commands are automatically preset to com- 
mon values. Thus the page length defaults to 11 inches, the 
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right and left margins are justified (aligned), line length is 70 
characters, new paragraphs are indented 6 spaces, and the 
text is single spaced. 

Listing 1 is the first part of the TEX work file for this article 
and includes some typical format commands. The resulting 
PRN file produced by TEX is shown in Listing 2. Notice that 
the source file is single spaced with irregular line lengths, 
while the finished file is double spaced with justified margins. 

SELECTED COMMANDS 

The first command in Listing 1, .LL55 sets the line length 
to 55 characters, overriding the default value of 70. The next 
command, .IG directs TEX to ignore the following lines until 
the next command is encountered. This command can be 
used to enter comments, such as the revision date, that are 
not to be printed in the finished file. Notice that commands 
may be entered in either upper or lower case letters. 

The command .CE3 causes the next three lines to be cen¬ 
tered. Then the .DS command produces double spacing be¬ 
tween each line, overriding the default value of single spacing. 
The .SP adds an extra space before the heading INTRO¬ 
DUCTION. The .TI3 command that follows does two things. 
It produces a temporary indentation (for only one line) of 
three characters. And it also causes a break in the margin ad¬ 
justment. Without a break, TEX would attempt to fill out the 
rest of the line after the heading: 

INTRODUCTION Report writing is a common . . . 

FORMATTER 

CP/M 

Contributing Editor 


For a report that is to be single spaced, the paragraph 
command, .PP is more suitable than the .Tl command. Another 
useful command is the literal, .LI which instructs TEX to print 
the text exactly as it appears. This is useful for including as¬ 
sembly listings within the body of the article. Although there 
are a total of 26 commands available, the following seven 
basic commands are likely to be the ones used most often. 

.CEn [center the next n lines] 

.DS [double space the text] 

.IG [ignore the next section] 

.LI [literal, use as is] 

.LLn [let line length to n] 

.SP [insert a space, vertically] 

.Tin [temporarily indent n] 

THE MANUAL 

TEX comes with a 78-page user’s manual. The first part pre¬ 
sents a thorough summary of CP/M in general and the system 
editor, ED in particular. The operation of TEX is explained and 
the 26 TEX formatting commands are then discussed in detail. 

All of the commands are listed on a single page in the appen¬ 
dix, making a convenient reference for the beginner. The man¬ 
ual is written in a non-technical style, so a person with little ex¬ 
perience in computer programming should be able to use TEX. 

I have found TEX to be a most helpful computer program. 

I use it to format all of the articles I write, as well as for 
technical reports in my regular work.D 


Sample 1. Original work file. 


. LL55 
. is 

Revised Jan 2. 1979 
. ce3 

TEX! A Text-Output Formatter for CP/M 
Reviewed by Alan R. Miller 
Contributing Editor 
. ds 
. sp 

INTRODUCTION 
• 113 

Report writing it a co**ori activity of those in the business 
world. There May he several re-writings 

of the Manuscript before the final version is obtained. 

The author first creates an outline of the important. points, 
then he expands these ideas into a first version. 

A secretary converts this into a double-seared rough draft. 

. 11 3 

The author pay add ideas between the lines of the rough 
draft or may insert new eases. 

If reorganization is necessary, soee 

of the eases May have to be cut up with scissors and 
taeed back together in the desired order. 

The final version is created 

by a retyping of the entire Manuscript. 

This cuMbersoMe process ream res authors to 
carefully organize their thoughts before starting on 
their Manuscript (or to hire very patient secretaries.. 


Sample 2. Formatted file. 


TEX S A Text-Output Formatter for f.P/M 
Reviewed by Alan R. Hiller 
Contributing Editor 


INTRODUCTION 

Report writing is a commoo activity of those in the 
business world. There May be several re-writings of 
the Manuscript before the final version is obtained. 
The author first creates an outline of the important 
points, then he expands these ideas into a first, 
version. A secretary converts this into a 
double-spaced rough draft. 

The author may add ideas between the lines of the 
rough draft or may insert new pages. If renrsamrat.ion 
is necessary. some of the eases may have to be rut up 
with scissors and taped bacV together in the desired 
order. The final version is created by a retyping of 
the entire Manuscript.. This cuMbersoMe process 
reouires authors to carefully organize their thoughts 
before starting on their manuscript (or to hire very 
patient sec ret.ar i es ) . 
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your BASIC software magazine' 


IF YOU HAVEN’T SUBSCRIBED TO 
SOFTSIDE, YOU MISSED: 


Cassettes 


Each month brings you a new Issue of SoftSIde 
PLUS the prerecorded cassette version of that 
month’s feature programs, ready to run. That’s 
all included in your six month membership for 
only $38.00 [Thirty programs for only about 
a dollar apiece] 

[JHMfet SEND IN YOUR ORDER TODAY - 
|g j S§j * LEAVE THE CODING TO US! 

\ SoftSIde Cassettes 

\ wmmmm PO Box 68 Milford, NH 03055 

V --—^ 603-673-5144 

I NEW A -\ 

/ / PUBLICATION J 111 


Level 2 Sampler 




Software products oriented to 
four levels of TRS-80 supported systems — 

ALL SYSTEMS UPWARD COMPATIBLE 


OCTOBER Cribbage, State Capital Quiz, Death 
5tar, Pillbox, Calculator 

NOVEMBER End Zone, Troll’s Gold, Shopping 
List, Level I to Level II, Octal to Hex Conversion 

DECEMBER Santa Paravia, Mortgage Calculation, 
Six Million Dollar (/10K) Clock, Spelling Bee, 
Biorhythms 

JANUARY ‘Round the Horn, Kiddy Slot, Writing 
Good Computer Games-Part I, Ten Pin Bowling, 
High Speed Graphics, Comput-A-Sketch 

FEBRUARY Form 1040, Writing Good Computer 
Games-Part II, Concentration, Elements Quiz, 


SYSTEM-S $99.95 
A stand-alone 16K Level II with one cassette tape 


Cribbage Update 

HOW MUCH LONGER 
CAN THIS GO ON? 


SYSTEM-1 $249.95 

A 32K Level II with DOS, optional printer 
(CRT oriented) and one disk 


12 issues — $15.00 
Softside Subscriptions 
Box 68 Milford, NH 03055 
603-673-5144 


SYSTEM-11 $499.95 

A 32K Level II with DOS, line printer and two disks 


SYSTEM -III Write for full particulars 
A 48K Level II with DOS, line printer and two-plus disks 


• Inventory *Mailing - names and addresses 
•Accounts Receivable 'Order Processing ‘Invoicing 
•Accounts Payable ^General Ledger *Fixed Assets 

• Profit & Loss Statements *Word Processing 

• Labor Scheduling *Sales Analysis/Statistics 

•Patient Billing »AndMORE... 

A PLAN — not a package 
17 Briar Cliff Dr. Milford, NH 

603-673-5284 


Adventure D 32K $24.95 

Pork Barrel 16K $9.95 

’Round the Horn 16K $9.95 
Star Trek 111.3 16K $14.95 

X-Wing Fighter 16K $7.95 

TenPin 16K $7.95 

Slalom 16K $7.95 

Cribbage 16K* $7.95 

Sargon 16K $19.95 

Backgammon 16K $7.95 

Inventory II D 32K $150.00 


End Zone 16K* $7.95 

Inventory I D 32K $59.95 

Accts. Rec. D 16K $59.95 

Payroll I D 32K $59.95 

Mail List I D 16K $19.95 

Mail List II D 32K $99.95 

Appt. Log 16K $9.95 

Ham Radio 16K $9.95 

Renumber D 4-48K $25.00 
Personal Finance 16K $9.95 
Tarot 16K* $9.95 


“Also available in Level I 
D= Disk 


TRS-0O 

Software Exchange 

1/ BRIAR CLIFF DRIVE MiLFORO. NEW HAMPSHIRE 03055 

SEND FOR OUR COMPLETE CATALOG TODAY! 


Dedicated to the serious programmer, from 
enthusiastic hobbyist to professional 

PREMIER EDITION FEATURES 
Inkey Routines by Lance Micklus 
Simple SiMON-monitor/disassembler 
written in BASIC 

Variables in Level ll-how to determine 
which variables have been used 

Subscriptions: 4 issues, $10.00 
POBox68 Milford, NH 03055 
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A SIMPLIFIED METHOD 
OF BINARY NUMBER 
SUBTRACTION 


By S. Leon Felkins 


INTRODUCTION 

For most, binary number addition is a fairly easy concept 
to absorb since it is essentially no different than base 10 addi¬ 
tion. It is known that when two base 2 digits are added, a one 
is carried to the next column if the total is greater than one. 
On the other hand, it is difficult to get really comfortable with 
base 2 subtraction. While, again, it presents no new prin¬ 
ciples beyond base 10 subtraction, borrowing can get com¬ 
plicated, particularly when a borrow “propagates” over 
about 6 columns. 

This article shows a method that reduces the subtraction 
problem to, essentially, the same method as addition and 
without going into complementary numbers. With the 
method presented here, if two binary numbers can be added, 
subtracting one from the other should be just as easy. Imple¬ 
mentation in hardware will also be shown. 

THE TRUTH TABLE 

We know that when 0 and 0 are added the result is 0; 0 
and 1=1; and 1 and 1 = 0 with a “carry” of 1. This set of 
rules can be neatly summarized in a “Truth Table.” The 
truth table simply defines the above stated function for all 
possible inputs. Consider two numbers, X and Y, which are 
added together to get the sum, S plus a possible carry, C. 
The truth table looks like this: 


Input 

Output 

X 

Y 

s 

c 

0 

0 

0 

0 

0 

1 

1 

0 

1 

0 

1 

0 

1 

1 

0 

1 


Of course, S and C could also be expressed as Boolean 
functions: 


S = X © Y 


C = X • Y 


but the truth table illustrates the ideas more clearly. 

Really, the problem is a little more complex because a carry 
could result from the previous stage. Again, rules must be 
stated in the form of a truth table. (It is assumed that two num¬ 
bers are considered at a time throughout this article. Adding 
more than two numbers can always be reduced to successively 
adding a pair at a time.) The subscript “i” has now been add¬ 
ed to show that the “i”th stage or column is considered. 


ADDI1 

noN 

Input 

Output 

X, 

V, 

C, 

S, 

^i + 1 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

1 

0 

1 

0 

0 

1 

1 

0 

1 

1 

0 

0 

1 

0 

1 

0 

1 

0 

1 

1 

1 

0 

0 

1 

1 

1 

1 

1 

1 


This addition table suggests a simpler rule for addition than 
has been used. Rather than being concerned about “sums” 
and “carries,” why not just consider it as obtaining two out¬ 
puts, Sj and C j+1 based on the following rules: 

S,: Sj has a value of 1 if and only if there are an odd 

number inputs having a value of 1. 

C j + 1 : Cj +1 has a value of 1 if and only if there are two or 
more inputs having a value of 1. 

The method is Illustrated by a simple example. The problem 
will be arranged in a format useful to the present purpose. 


x—► 

- 1 

'1 r 0 

' 1 

r 1 

C-►! * 

\y\ 

M V 

o -»> 

\ 

_ X _ 

O O 


S-►! 10 0 0 1 


Each stage is discussed: 

Stage 1: Carry is always 0 at the first stage. Using the 
above rule results in St = 1 since there are an 
odd number of ones and C 2 = 0 since the num¬ 
ber of ones is less than 2. 

Stage 2: S 2 = 0 results because there are an even number 
of ones and C 3 = 1 because the number of ones 
is two or greater. 

Stage 3: Same as Stage 2. 

Stage 4: Same as Stage 3. 

Stage 5: S 5 = 1 results because there are an odd number 
of ones and C 6 = 1 because the number of ones 
is two or greater. 

Stage 6: Same as Stage 1 . 


Now look at the truth table for subtraction. Let D represent 
the difference, B represent the “borrow,” X represent the 
minuend and Y represent the subtrahend. 


MAY 1979 


INTERFACE AGE 147 

























SOFTWARE SECTION 


SOFTWARE REVIEW 


SUBTRACTION 


Input 

Output 

X, 

Y, 

B, 

D, 

B i + , 

0 

0 

0 

0 

0 

0 

0 

1 

1 

1 

0 

1 

0 

1 

1 

0 

1 

1 

0 

1 

1 

0 

0 

1 

0 

1 

0 

1 

0 

0 

1 

1 

0 

0 

0 

1 

1 

1 

1 

1 


Notice some similarities. D, is exactly the same as Sj. B; + , , 
while not exactly the same as C j+ 1 , does have some similari¬ 
ties. It appears that B j+1 is the same as C j + 1 is the comple¬ 
ment of Xj (X,’) is used rather than X.. That could be used, 
but there is an even simpler method Tor manual operations. 
The rules for subtraction: 

D,: D; has a value of 1 if and only if there are an odd 

number inputs having a value of 1. 

B j + 1 : B j + 1 has a value of 1 if and only if there are two or 
more of the three quantities Y jf E. and D, that have a 
value of 1. 

In other words, for subtraction, the same rules apply as 
addition, except that for the inputs the three center columns, 
Yi> B, D j , are taken instead of the three left most columns as 
done in addition. The following example illustrates how this 


rule is applied: 

x—► 

1 

i 

0 


1 

i 

Y—► 1 

r> i 

f° 1 

n 


1 

0 

B — ►O 4 


1 i 


H 

0 - 

0 

■>-* 1 

1° 1 

1° 1 

fi 

0 

L 

1 


Each stage is discussed: 

Stage 1: Borrow is always 0 at the first stage. Using the 
above rule, D ^ = 1 results since there are an odd 
number of ones and B 2 = 0 since the number of 
ones in the Y, B and D positions is less than 2. 
Stage 2: D 2 = 0 results because there are an even number 
of ones in X, Y and B positions and B 3 = 0 results 
because the number of ones in the Y, B and D 
positions is less than 2. 

Stage 3: D 2 = 1 results because there are an odd number 
of ones in X, Y and B, and B 4 = 1 results be¬ 
cause the number of ones in the Y, B and D posi¬ 
tions is not less than 2. 

Stages 4 and 5: Same as Stage 2. 

HARDWARE IMPLEMENTATIONS 

Since, as stated above, the correct values for B j + 1 could be 
obtained by simply inputting X ( ’ to the C j+1 calculator rather 
than X r The Boolean expressions for Sj and C j + 1 are: 

Sj = X © Y © Cj 
C i+1 = X # Y + X®C j + Y«C i 

Assuming these two circuits are available, a circuit can 
easily be built to add or subtract by implementation of the 
following set of Boolean equations: 

S/D, - X © Y © C ( 

C i+1 /B i + 1 = (X©ADD) • (Y+ g + V • q 

Where ADD is a Boolean variable that, when asserted, 
causes the circuit to properly add and, when false, causes the 
circuit to properly subtract. The ADD variable causes X to be 
input for the add operation but causes X’ to be input by the 
subtract operation.□ 
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MICRO-MARKET 


GREAT GRAPHICS 

Software for use with the SWTPC GT-61 display. 
This 6800 program permits EASY plotting and eras¬ 
ing of points, lines and ASCII characters! Manual, 
source listing, and K.C. cassette are included. 
Graph #1 — For use with your machine-language 

calling program.$8.75 

Graph #2 — For use with SWTPC BASIC ver. 2.0 

(Works with PRINT statement).$8.75 

WRITE FOR FLYER ON OUR OTHER PROGRAMS 

APPLIED MICROCOMPUTER SYSTEMS 

P.O. Box 68, Silver Lake, NH 03875 (603) 367-8004 


DISK DRIVE WOES? 

MEMORY LOSS? ERRATIC OPERATION? 
DON’T BLAME THE SOFTWARE! 

Power Line Surges & Hash could be the culprit! 
Floppies, memory & processor often Interact! Curb 
damaging Surges & Hash with our ISOLATORS and 
Supressor/Filters. Eliminate Equipment Interaction 
with our unique ISOLATORS. 

ISOLATOR (ISO-1 A) 3 filter isolated 3-prong sockets; 
integral surge suppression; 1875 W total load, 

1 KW any socket.$49.95 

ISOLATOR (ISO-2) 2 filter isolated 3-prong socket 
banks (6 sockets total); integral surge suppression; 
1875 watt total load, 1 KW load either bank .. $49.95 
Supressor/Filter (SFK-31) 3-prong socket; 1 KW 

load.$24.50 

Supressor/Filter (SFK-33) Three 3-prong sockets; 

1250 watt load.$32.50 

PHONE ORDERS 1-617-655-1532 
BA , VISA & MC Cards Accepted 
/-*-V Electronic Specialists. Inc 
DEPT. IF, 171 So. Main Street, Natick, Mass. 01760 


DOUBLE YOUR DECWRITER SPEED 

Double the speed of your LA36 DEC- 
wrlter from 30 to 60 CPS. The ACCELE- 
WRITER is a small molded module 
which plugs into the printer’s logic 
board and enables the DECwriter to 
print at its “catch-up” speed of 60 CPS 
all of the time. 

Wait only half the time for your DEC¬ 
writer to finish its printing job. Easy in¬ 
stallation and easy reconversion, if ever 
desired. Full year warranty. Only $115. 

Available NOW from: 

LARKS ELECTRONICS & DATA 

P.O. Box 22 Skokie, Illinois 60077 
(312) 677-6080 


NORTH STAR 
VARIETY PACKAGE #2 

BASREF: Reads a BASIC file and prints a formatted 
map. 

RAMLOC: Finds and prints the location of all RAM 
FILEDUMP: Prints any file in HEX and ASCII 
GAMMON: Compact version that runs in 12K 
AND MORE 

Package #2.$20 

MC and VISA Welcome 

MIDWEST DIGITAL 

863 Wood Avenue Wichita, KS 67212 


NORTH STAR SOFTWARE 
GAMES! GAMES! GAMES! 

$20.00 buys one FULL mini floppy containing 20 
games such as checkers, monopoly, life, stock 

market, poker, hi-lo, sumer, hamurabi, football, etc. 

All de-bugged and ready to go. Listing and instruc¬ 
tions included. Get yours now. Send $20.00 to: 

Rix Dobbs 

14546 S.R. 23, Granger, IN 46530 


TRS-80 COMPUTING 

non-profit newsletter 
$15 (U.S.)/12 issues payable 

Computer Information Exch., Inc. 
Box 158 

San Luis Rey, CA 92068 


RENUMBERING PROGRAM 

(TRS-80 Level II BASIC Disk) 

It always happens; you need additional 
space in an already crowded program, or per¬ 
haps you just want to clean up a finished pro¬ 
gram. This renumbering program which can 
be run in ail memory sizes, will resequence 
your BASIC program starting and increment¬ 
ing with any number you choose, which will 
allow you to merge programs. Sequence and 
desequence programs are included to com¬ 
plete this package for sequential disk data 
file handling. 

Resequence, Sequence, Desequence Pro¬ 
grams with Disk $20.00. 

Automated Business Programming 

88 Washington Street, Florissant, MO 63031 


iHicroco 

W 


e Sell Quality fo 

r Less 

VERSAFLOPPY 

$ 140 

SHUGART SA-400 

289 

Z 80 STARTER KIT 

229 

8 K ECONORAM 1 1 

128 

EXPANDORAM 

138 

Add 16 KB RAM 

128 

VDB- 8024 

297 

SBC 100 

224 

TRS-80 Conversion 

98 


Give your TRS-80 16K Bytes 


All Godbout & S.D. Systems Equip. 
Call or write for complete product info 
Floppy cabinets & CP/M O.S. 
Business Systems & Software 


(918)742-2778 MCorVISA 


3105 E. Skelly Dr. Suite 517 


Tulsa, Ok la. 74105 


H-9 OWNERS!!! 

Have you ever wished that you owned a 
smarter terminal? Now, with the addition of 
our control code decoder, you can. It allows 
the decoding of 12 of the first 16 codes (the 
remaining four are already assigned). This fully 
programmable device also provides 3 latching 
outputs that can be used to control any of the 
7 key switches on the H-9. All 7 of these 
switches are monitored by LED indicators. 

Send $17.95 for one or $24.95 for two (for a 
total of 28 codes). All shipments include a 
6-page application booklet. Please include 
$1.00 for shipping charges. All TROTZ-BOX 
products come fully assembled and war¬ 
ranted for a full 90 days. Send to: 

TROTZ BOX CO. 

60 View Drive, Golden, CO 80401 

Allow up to five weeks for shipment 


FOR SALE 

Tektronix 4051 Graphic Computer. 16K 
RAM, 32K ROM, Matrix ROM, hard copy, 
nearly new. $9790 (=80% of current 
new price)/offer. 

CARL LAWYER 

3330 SE Raymond, Portland, OR 97223 
_ (503) 775-1623 _ 


NORTH STAR USERS 

MARYELLEN - TEXT PROCESSING SYSTEM 

24 commands incl. AUTO, RENUM, LOAD, 
SAVE, EDIT, MOVE, COPY, FIND, & CHANGE. 
Handles multiple printers, centering, line fill¬ 
ing, justifying, titling & more. In 8080 Assm. 
language. Loads at 2A00. Min. 16K/1 disk. 

Only $38 + $1 p&h + CA sales tax 
Send SASE for list of other software available 

SURF COMPUTER SERVICES 

P.O. Box 66572-A Los Angeles, CA 90066 

(Dealer Inquiries Invited) 


save more than 20%! 

NORTH STAR-XITAN 

The smartest computers at the smartest price 


DOUBLE DENSITY 

HORIZON-1 -16K kit, list $ 1,599.$ 1279 

Assembled & tested, list $ 1899.$1519 

HORIZON-2-16K kit, list $ 1999 .$ 1599 

Assembled & tested, list $2349.$ 1879 

Powerful NORTH STAR BASIC. FREE 

XITAN Computers — NOW — With 
QUAD DENSITY DISKS! 

Famous XITAN Software & BASIC. FREE 

INTERTUBE II Terminal, list $995.$795 

Which Computers are best? BROCHURE .... FREE 


AMERICAN SQUARE COMPUTERS 

KIVETT DR • JAMESTOWN, NC 27282 
_ (919) 883-1105 _ 


FRUGAL FRONT PANEL SERIES 

S-IOO DISPLAY-SENSE BOARD KIT 

Board and Manual S29.95 Kit $89.95 

REMOTE HEX PANEL 

Board and Manual $22.95 Kit $69.95 

REMOTE BINARY PANEL 

Board and Manual $22.95 Kit $64.95 

Assembled Versions Available 


COMPUTER CANOPY DUSTCOVERS 
APPLE II $12.95 

H-8, H-11. HORIZON. 

INTEGRAND 800D $14.95 

SWTPC CT-82, ADM-3, H-9, ACT IVb, 

PET. HAZELTINE 1500/1510/1520 $16.95 

TRS-80 - 

Keyboard-Monitor-Cassette 3 pc $25.95 


Add S2 par , 1 am for shipping and handling. $1 extra for COO 
TX r M edd 5% tax M/C & VISA accepted 


Digital Dynamic*. Inc. 
Department I 
310C Breaaport 
San Antonio. TX 78216 
(512) 341-8782 
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TRS-80 Quality Software. Be selective! 

DOS; $39 WORD processor stores text in disk. No 
cassette. $39 INVentory uses 9-digit key for fast ran¬ 
dom access. Not sequential. $35 MAIL sorts report & 
label by any field. $49 DATA/base report requires 
32K. Not 16K. 

LEVEL I or LEVEL II: cassette inventory, data base, 
16K, $20 each. Stock, check balance 4K, $10 each or 
$15 for both. 

MICRO ARCHITECT 
96 Dothan Street, Arlington, MA 02174 


TRS-80™ T-PAL 


Programming Amateur’s Letter 

THE “DO-IT-YOURSELF” 

SOFTWARE NEWSLETTER 

FOR TRS-80 OWNERS 


Published Monthly, We’ll Teach You | 
All The Latest Wrinkles —How To Get ■ 
The Most Out Of Your Computer J 
Graphics • Games • Personal 
Business • And Much More! 

$24 per year... or write for FREE DETAILS I 

THE MAIL MART 

Box 11102C, San Francisco, CA 94101 I 



s: We Buy-Sell-Trade all brands & X 

^ models of Data Processing ^ 

^ Equipment. ^ 

USB-330 ^ 

10/30 cps s: 

Impact Printing —— 

Tractor Feed ZZZ 

132 Print — 

Positions ^ 

10-Key Pad ^ 



: Nearly a million dollars in inventory * 


Call for price quotes 


I 


s: 


214/357-5725 s 

U.S. BROKERS CO. N 

I A Division of CM Corp. V 
| 2636 Walnut Hill Lane ^ 


(Rs) 

^ Dallas, Texas 75229 ^ 

?/////////IH\\\ IIWWWWWV^ 


Suite 347 


NORTH STAR OWNERS 

COMMERCIAL GRADE SOFTWARE 

Software for business or the person interested in get¬ 
ting started in the data processing business. 

PAYROLL PROGRAM GENERAL LEDGER 
✓Up to 400 employees/disk ✓Up to 200 accounts/disk 
✓Designed and used by ✓Trial balance 
accounting professionals ✓Balance sheet 
✓Up to 20 department totals ✓Income statement 
✓Complete documentation ✓Budget program 
✓941 and W-2 programs ✓General ledger 
✓Demonstration file ✓Demonstration file 

This software is being used by accounting profes¬ 
sionals and data processing services. 

$89.50 Each • Both for $150 
Demonstration Disk $25 per package 
(Refundable with order) 

BLOSSOMLAND SOFTWARE 

815 Main Street, St. Joseph, Ml 49085 

(Dealer Inquiries Invited) 


Check our prices — Wo will not be undersold! 


DISCOUNTS! 

POLY-8813 1 drive-No monitor $2850 

POLY-88 System 2 $575 

IMSAI1-8080 22 Slot $650 

IMSAI VI0 Basic/C Kits $150/$260 

NORTH STAR First Disc System Kit $500 


POLV 88/8813 Softwaro $ 2 . 50 /Progrom 

AAAA Computer How’s 
1477 Barrington, Suite 17 
W. Los Angeles, CA 90025 (213) 477-8478 


MEMOREX FLOPPY DISCS 

LOWEST PRICES. WE WILL NOT BE UNDER 
SOLD. BUY ANY QUANTITY 1-1,000. VISA 
MASTER CHARGE ORDERS ACCEPTED. 
CALL FREE (800) 235-4137 FOR PRICES AND 
INFORMATION. ALL ORDERS SENT POST¬ 
AGE PAID. 

PACIFIC EXCHANGES 

100 FOOTHILL BLVD., SAN LUIS OBISPO, CA 93401 
(IN CALIFORNIA CALL (80S) 543 1037) 


TRS-80 ACCOUNTS RECEIVABLE 

1 disk required, up to 300 customer files. Screen 
inquiry and all reports inc. aging and state¬ 
ments. $59.95. We have Accounts Payable, too. 

JACK G. HATFIELD 
2895 Bedford Avenue 
Placerville, CA 95667 


PET 8K intro special $695 
PET 16K $890 PET 32K $1065 
KIM $159 SYM $238 
Add $30 for Power Supply 

Write for list of PET, KIM and SYM accessories 

A B Computers 

P.O. Box 104, Perkasie, PA 18944 


C-10 COMPUTER CASSETTES 

LEADERLESS “BASF" TAPE, $1.25 EA., 
WITH LEADER $0.75 EA., C-45 “BASF HIGH 
PERFORMANCE” CASSETTE BLANKS $1.10, 
C-60, $1.50, C-90, $1.95 EA. 

A & S TAPE PRODUCTS 
16123 Cohasset St., Van Nuys, CA 91403 
(213) 781-7403 


BASIC 

SUBROUTINE 
LIBRARY 
Volume 1 

VM Professional Application 
Software, Ltd. 

2703 Bainbridge Avenue 
BURNABY, B.C. V5R 2S7 

• ARRAYS - minimum, maximum, sums, 
searching, sorting. 

• MATRIX ALGEBRA addition, subtrac¬ 
tion, multiplication, transposition, 
determinant, inversion. 

• SIMULTANEOUS EQUATIONS non- 
symmetrical, symmetrical, banded, 
three-diagonal. 

Any routine you’ll ever need, involving 
arrays, matrix algebra or simultaneous 
equations, can be found in this com¬ 
prehensive collection of subroutines, 
compactible with any version of BASIC 
having subscripted variables. 

Numerous examples show how to incor¬ 
porate those subroutines into your pro¬ 
grams or how to use them as stand 
alone programs. 

Order now and save days of work. 

$18.00 U.S. plus $2.00 fur handling 
and postage. 


^PASCAL $2995 



COMPUTER 


Call (714) 
979-9920 


MONTHLY SPECIALS 

• Floppy Kit (Si00) 

SA 801 floppy (8") & cont.$599 

• Add On Floppy Drives 

SA 800/1 (8") floppy.$469 

SA 400 mini floppy.$285 

Pertec FD 200.$285 

Pertec FD 514.$479 

• Centronics 779 printer.$999 

Centronics PI.$399 

Centronics 700/w tractor.$1475 

• Miscellaneous 

Tarbell Controller Kit.$185 

CP/M Operating System/Manuals . $89 

8” Verbatim Diskettes.$3.99 

5" Diskettes.$3.39 

16k RAM chips.$9.75 

Pwr Supply cabinet (mini floppy) . $79 


COMPUTER INIERMCE TECHNOLOGY 

Peripheral Pioducts Division 

2080 South Grand Grand Centre Santa Ana CA 92705 




% 


Keyed Access 
For CP/M* 


MAGSAM’ the powerful keyed access 
method for microcomputers, is now 
available for CP/M and CBASIC. 

Put data at^your fingertips.. .easily re¬ 
trieved, displayed, and updated by key. 
Develop sophisticated online applications 
with real-time inquiries, updates, and data 
validation. 

Program with MAGSAM’s™ advanced 
capabilities including random access by 
key, generic ("wild card") search, 
sequential retrieval by key, multiple keys, 
and secondary indexing. 

Order the MAGSAM v package today and 
receive the MAGSAM" access method, 
MAGSAMX™ tutorial program, and 
MAGSAMD ’’ file dump utility on an 8" IBM 
Compatible diskette, and the comprehen¬ 
sive 58 page MAGSAM"' User Guide and 
Reference Card! 

SPECIAL INTRODUCTORY OFFER: 
MAGSAM Package (Reg. $99) only$75 
MAGSAM User Guide (Reg. $10) only$7 
Send Check or Money Order To: 

Micro Applications Group 
7300 CALDUS AVENUE 
VAN NUYS. CA 91406 




CLIP THIS AD 




NOW AVAILABLE 
PET AND SOL SOFTWARE IN BASIC 


STATISTICS: 

Distribution $ 5.95 

Linear Correlation and Regression 5.95 
Contingency Table Analysis 5.95 

Mean and Deviation 5.95 

All four for only 18.95 

FINANCIAL: 

Depreciation 5.95 

Loans 5.95 

Investment 5.95 

All three for only 12.95 

GENERAL: 

TicTacToe 4.95 

Complete Metric Conversion 5.95 

Checkbook Balancer 4.95 

All three for only 10.95 

FOR THE KIM-1 


A real-time PROCESS CONTROL OPERAT¬ 
ING SYSTEM including a process language 
interpreter — (operates in the 1 k KIM-1 RAM). 
Assembly listing $24.95 

Cassette Tape with users manual 14.95 
Schematic for relay control board 9.95 

All programs on high-quality cassette tape. 
Send self-addressed, stamped envelope for 
complete software catalogue. Send check or 
money order to: 

H. GELLER COMPUTER SYSTEMS 

Dept. I P.O. Box 350 New York, NY 10040 

(New York State residents add 8% sales tax) 
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Info 

Inquiry 

Number 

MANUFACCTURER5 

1 ACS Service. 

2 Anadex . 

3 Analex. 

4 Atari. 

5,6 A-Vidd Electronics. 

7,8 Berkeley Medical Data Associates, Inc. 

9 Cascade Enterprises. 

10 Computerland, Inc. 

11 Computer Lab of New Jersey. 

* Computer Cookbook. 

12 Cromemco Inc. 

13 Cutting Edge of Technology. 

14 Cybernetics Inc. 

15 Data/Print Publishing. 

16 DataSearch. 

* dilithium Press. 

17 Essex Publishing Company. 

80-US. 

18 Electronic Control Technology. 

19 FMC Corporation. 

20 CRT Corporation. 

21 Gimix Inc. 

22 Graham-Dorian. 

23 Integrand Research . 

24 Intelligent Systems Corp. 

* INTERFACE AGE Subscriptions 

INTERFACE AGE Back Issues. 

25 Intertec Data Systems. 

86 Eliot Janeway . 

26 Konan . 

27 Lifeboat Associates. 

28 Meca. 

29 Micro Computer Technology Inc.. . . 

30 Micro Da Systems. 

31 Micro Mail. 

32 Micro-Term, Inc. 

33 Micro V. 

34 Micro Works. 

35 Micropolis. 

36 MPI. 

* NRI. 

37 National Software Exchange, Inc. . . . 

38 National Technical Schools. 

39 Ohio Scientific. 

Osborne & Associates, Inc. 

* Manufacturer requests factory direct inquiry. 
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45 Ready Corporation. 

46 S.D. Systems . 

* Shugart . 
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58 Advanced Microcomputer Systems. 

59 Bits N Bytes. Fullerton, CA. 

60,61 Byte Shop, Lawndale, CA. 

62 Century Electronics. 

63 Computer Components of South Bay, CA 

64 Computer Components Inc., Van Nuys, CA 

65 Computer Components of Orange County 

71 Computer Systems Design, Inc. 

84 Data Discount Center. 

66 Digi-Key Corporation. 

67 Hobby World . 

68 Jade Computer Products. 

69 Khalsa Computer Systems Inc. 

70 Marketline Systems, Inc. 

72 Micro Mike’s, Inc. 

73,74 MiniMicroMart, Inc. 

85 MicroWorld . 

75 Mission Control. 

76 Omega Microcomputers. 

77 Personal Programming Service. 
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82 T & W Communications Centers. 
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CP/M+TRS-80’ 

The CP/M Operating System now available 
for Radio Shack’s TRS-80 


CP/M OPERATING SYSTEM 

• Editor, Assembler, Debugger, and Utilities 

• For 8080 and Z-80 Systems 

• Up to four floppy disks 

• Documentation includes: 

CP/M Features and Facilities 
CP/M Editor Manual 

CP/M Assembler Manual 
CP/M Debugger Manual 
CP/M Interface Guide 
CP/M Alteration Guide 

CP/M System Diskette and Documentation (Set 
of 6 manuals) for $150. 

CP/M Documentation (Set of 6 manuals) only 
$25. 

MAC® MACRO ASSEMBLER 

• Compatible with new Intel Macro standard 

• Complete guide to Macro Applications 
MAC Diskette and Manual for $150. 


SID® SYMBOLIC INSTRUCTION DEBUGGER 

• Symbolic memory reference 

• Built-in assembler/disassembler 
SID Diskette and Manual for $125. 

TEX® TEXT FORMATTER 

• Powerful text formatting capabilities 

• Text prepared using CP/M Editor 
TEX Diskette and Manual for $125. 

HIGH-LEVEL LANGUAGES 

• Basic 

• Fortran 

• Cobol 

• Call or write for information 

USER’S GROUP 

• 35 disks with utilities, games and 
applications 

• Call or write for information 


FMG ©@R[P©lfMTQ©INI 

circle inquiry no. 19 P.O. Box 16020 • Fort Worth, TX 76133 • (817) 294-2510 

CP/M is a registered trademark of Digital Research Corp. TRS-80 is a registered trademark of Radio Shack. 































































































C2-4P: $598! The professional portable that has over 3-times the display 
capability of 1 P’s. Features 32 x 64 character display capability, graphics, full 
computer type keyboard, audio cassette port, and 4 slot BUS (only two used in 
base machine). It has 8K BASIC, 4K RAM, and can 
be expanded to 32K RAM, dual mini-floppies and 
a printer. 

C2-4P M Fl $1599! It’s a big personal 

computing mini floppy system at a special package 
price. Contains the famous C2-4P microcomputer 
with 20K static RAM, 5" mini-floppy unit for instant 

prog ram and data loading, RS-232 circuitry (for optional modem and printer), 
and four diskettes featuring exciting games, personal, business and education 
applications. 


The Personal Computer Line 
by OHIO SCIENTIFIC 


Cl P: $349! A dramatic breakthrough in price and per¬ 
formance. Features OSI’s ultra-fast BASIC-in-ROM, full graphics 
display capability, and large library of software on cassette and 
disk, including entertainment programs, personal finance, 
small business, and home applications. It’s a complete pro¬ 
grammable computer system ready to go. Just plug-in a video 
monitor or TV through an RF converter, and be up and running. 
15K total memory including 8K BASIC and 4K RAM — 

expandable to 8K. 

C1P MF: $995! First floppy disk based computer 

for under $1000! Same great features as the Cl P plus more 
memory and instant program and data retrieval. Can be 
expanded to 32K static RAM and a second mini-floppy. It also supports 
a printer, modem, real time clock, and AC remote interface, as well as OS-65D 

V3.0 development disk operating system. 



C2-8P: $799! The personal class computer that 

can be expanded to a full business system. Has all the 
features of the C2-4P plus an 8 slot BUS (3-times greater 
expansion ability than the C2-4P). Can be expanded to 48K 
RAM, dual floppies, hard disk, printer and business software. 

C2-8P DF: $2599! A full business system avail¬ 
able at a personal computer price I The system includes the 
powerful C2-8P microcomputer (32K RAM expandable to 
48K), dual 8" floppy unit (stores 8-times as much information 
as a mini-floppy), and 3 disks of personal, educational and 
small business applications software. Has all the capa¬ 
bilities of a personal system including graphics plus 
the ability to perform Accounting, Information Manage¬ 
ment, and Word Processing tasks for small business. 
Contact your local Ohio Scientific dealer 

All prices, suggested retail 


Monitors and cassette recorders not 
included. Ohio Scientific offers a com¬ 
bination TV/Monitor (AC-3P) for S115. 


CIRCLE INQUIRY NO. 39 


America’s largest full-line microcomputer manufacturer 
1333 S. CHILLICOTHE RD. f AURORA, OHIO 44202 (216) 562-3101 

















The Intecolor8070 business system. 

At twice thp price, it would still be inexpensive. 

. -' ' '•-* ' t' I •’> 

Because ISC is the world’s leading manufacturer PRINT USING feature that tailors output to any 

of color terminals, we re able to offer unparalleled specifications. 

color performance—at phenomenal prices. If you need greater storage capabi I ities, choose 

Our 8070 Series I Business System is a perfect the 8071 —same system, but with a dual double¬ 
example of reliable, yet extremely reasonable prod- headed floppy disk drive. Giving you 1182K bytes 

ucts. It's a complete 8080A microcomputer system of storage, for only *$800 more, single unit. ' 

that includes the following standard fea- Either way, the Intecolor Series I can relieve 

tures: A dual floppy disk drive with 591K your business of a considerable amount of paper¬ 



work, without costing you a great deal of money. 

(Terms—5% discount for prepay¬ 
ment, or net 20 days.) 

For more information and 
a complete demonstration, 
see your nearest computer 
store, or contact your ISC 
" ^ sales representative. 

X| %r ^ Color Communicates Better 


bytes of storage; a 19” color data display 
with an easily readable 80 characters x 
48 line format; and a 60 CPS Impact 
Matrix printer. All for a remark¬ 
able *$7000, single unit price. 

And that price doesn't 
stop at hardware. Intecolor’s 
18K Business BASIC in ROM 
has 16 digit accuracy and a 


Unretouched photo of screen 


Furniture not included 


U S. domestic prices 


ISC SALES REPRESENTATIVES: AL: 205/883-8660, AK (GA) 404/449-5961 AZ: 602/994-5400. AR: (TX) 214/840-2169, CA Alhambra 213/281-2280, Goleta 805/964-8751. Irvine 714/557-4460, Los 
Angeles 213/476-1241, Mountain View 415/964-9300, San Diego 714/292-8525 CO 303/759-0809. CT (GA) 404/449-5961, DE: (GA) 404/449-5961, DC (GA) 404/449-5961, FL Orlando 305/425-5505. 
Ft. Lauderdale 305/776-4800 Melbourne 305/723-0766, Tallahassee 904/878-6642. GA 404/455-1035. HI: 808/524-8633. ID i UT) 801/973-7969. IL: (No ) 312/564-5440. (So )(MO) 816/765-3337 
IN (IL) 312/564-5440. IA: (MO) 816/765-3337 KS (MO) 816/765-3337. KY: (GA) 404/449-5961. LA 504/626-9701. ME: (GA) 404/449-5461, MD (GA) 404/449-5961. MA (GA) 404/449-5961. 

Ml: (GA) 404/449-5961 MN 612/822-2119 MS: (AL) 205/883-8660. MO 816/765-3337, MT (CO) 303/759-0809, NB (MO)816/765-3337, NH: (GA) 404/449-5961, NJ: (GA) 404/449-5961. 

NV: (AZ) 602/994-5400. NM 505/292-1212 NY: (GA) 404/449-5961, NC 919/682-2383. ND (MN) 612/822-2119 OH (GA) 404/449-5961, OK: (TX) 214/840-2169 OR 503/620-5800. 

PA: (GA) 404/449-5961. Rl: (GA) 404/449-5961. SC: 803/798-8070. SD: (MN) 612/822-2119. TN: 615/482-5761. TX 214/840-2169. El Paso Area (Las Cruces. NM) 505/523-0601, Houston Only 713/ 
780-2511. UT: 801/973-7969. VT: (GA) 404/449-5961. VA: (GA) 404/449-5961. WA: 206/455-9180. WV (GA) 404/449-5961, Wl (IL) 312/564-5440. WY: (CO) 303/759-0809. EUROPEAN EXPORT 
SALES EUROPE. (MA) 617/661 94E4, BELGIUM Druooelo02 242 36 01. FRANCE: Ruoil Malmaieon 710-10 37, GREECE. Athono 642 1360, ITALY: Roma 805 647/872 46/, THE NETHERLANDS 
Poeidijk 01749-7640, SPAIN: Barcelona 204 17 43, SWEDEN: Vallingby 08-380-370. SWITZERLAND Mutschellen 057-54655, UNITED KINGDOM Bournemouth 0202-293-115, WEST GERMANY 
Munchen 089-31881. AUSTRALIA & NEW ZEALAND: Melbourne 543-2077. Meadowbank 808-1444, Chermside 59-6436, Wellington 64-4585, Auckland 876-570, CANADA Datamex. Ltd. (Distributor, 
Dorval 514/636-9774, Ottawa 613/224-1391, Toronto 416/787-1208, Vancouver 604/684-8625. CENTRAL & SOUTH AMERICA & CARIBBEAN: (GA) 404/394-9603, MEXICO Monterrey 564-876, 
FAR EAST (CA) 213/382-1107. HONG KONG 5-742211, JAPAN: Tokyo 402-8596. TAIWAN Taipei 02-7026284 MIDDLE EAST IRAN Tehran 891148, ISRAEL Tel Aviv 266-291, KUWAIT Kuwait 438 
180/1/2. LEBANON: Beirut 221731 260110. SAUDI ARABIA Jeddah 27790, Ryadh 25083-39732, UNITED ARAB EMIRATES Sharjah 24068 
For sales and service in other countries contact ISC headquarters in Norcross, GA., U.S.A. 



Intelligent Systems Corp. 


□ 5965 Peachtree Corners East □ Norcross, GA 30071 □ Telephone 404-449-5961 □ TWX 810-766-1581 

CIRCLE INQUIRY NO. 24 










